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INTRODUCTION 


This book contains tests/exercises for two different courses, 
Programming RSX-11M in MACRO and Programming RSX-11M in FORTRAN. 
Most of the questions apply to both courses. If a question begins 
with "In MACRO" or "In FORTRAN", that question applies only to the 
specified course. Solutions are provided for all tests/exercises. 
Where it is appropriate, Separate solutions are provided for MACRO 
and FORTRAN. Solutions which involve programs should also be 
available on-line. 


Check the Student Guide in the Student Workbook for your 
course for information on how to use the tests/exercises. 


Using System Services 
TEST /EXERCISE 


Match the function with the type of system service used _ to 
perform it. 


Function Type of System Service 

a. The tasks send data 1. System and task information 
back and forth to 
each other 2. Task control 

b. The tasks read data 3. Task communication/coordin- 
from a file on disk ation 

c. The tasks get input 4. I/0 to peripheral devices 
from an operator 
at a terminal 5. File and record access 


6. Memory use 


Draw a figure to illustrate a method of providing a _ system 
service through the Executive. 


Using System Services 
: TEST /EXERCISE 


3. What is the other method for providing a system service? 


4, Identify two system libraries you might use in writing 
programs that use system services. 


Using System Services 


SOLUTION 


Match the function with the type of system service used _ to 
perform it. 


Function Type of System Service 
3. a. The tasks send data 1. System and task information 
back and forth to | 
each other 2. Task control 
5 b. The tasks read data 3. Task communication/coordin- 
= from a file on disk ation 
4 cc. The tasks get input 4. I/0 to peripheral devices 
from an operator 
at a terminal 5. File and record access 


6. Memory use 


Draw a figure to illustrate a method of providing a _ system 
service through the Executive. 


See Figure 1-1 or 1-2 


Using System Services 


SOLUTION 


3. What is the other method for providing a system service? 
Insert’ the code into your task. 


4. Identify two system libraries you might use in writing 
. programs that use system services. 


Any two of the following: 


SYSLIB.OLB 
RSXMAC.SML 
RMSMAC ..MLB 
RMSLIB.OLB 
FOROTS. OLB 
F4POTS.OLB 


Also acceptable: 


FCSREF.TSK 
FORRES.TSK 
F4PRES.TSK 
RMSSEQ. TSK 


Directives 
TEST/EXERCISE 


In MACRO-11 


a. Modify the task READF to use the SC form of the Read Event 
Flags directive. 


b. Modify the task READF to use the $S form of the Read Event 
Flags directive. 


In FORTRAN, modify the task READF to set all of the odd 
numbered flags from 1 to 15(16). 


Modify WFLAG and SFLAG to use a global event flag instead of a 
group global event flag. Omit any unnecessary code in the 
tasks. Check with your instructor to find out which event 
flag to uSe. 


Write a task which does some work and periodically checks a 
group global event flag. Have it display a message and exit 
when the flag has been set. Write another task, or modify 
SFLAG to set the flag. 


Add a requested exit AST routine to WFLAG. . 


In MACRO-11, add an odd address trap SST routine to the task 
SST. Include an instruction which causes the trap to occur. 


We 


+ 


The 


> “S> Or Sr We eh “Ed “S> WP “HP SP ‘Sr “E> Go “> “E> “OP 


RUFF ¢ 


SETF $ 


START $ 


File 


Directives 


SOLUTION 


+TITLE REAIIF 
*IQENT /0O1/7 
*-ENABL LC 5 Enable lower case 


LEX21A.MAC 


Modified to use the $C form of the Read All Event ¢sEX 
Fless 


directive 


This task 
event flags» moves them into resisters RO-R3S and then 
@xits. 


Tt 


eMCA 


BLN 


SETF 


CLR 
DIRS 
RCS 
RIVAF 


BCS 
MOV 
MOV 
MOV 
MOV 
LOT 


§ Come here 


ERR 3 
ERR1 3 


INC 
INC 


MOV 
LOT 


»ENT 


starts ury sets event flag il» reads the 


yuses the 6 form of the directive calls. 


flags ere returned as follows: 


word O = event fleds 1-16 
word 1 = event flags 17-32 
word 2 = event flads 33-48 
word 3 = event flags 49-64 


LL ROAFSCsSETFSeEXIT&ESsDIRS ¢ System macros 


9 9EX 
W 4 > Ruffer for event flas 
§ Values 
$ 1 > TFB for Set Event Flas 
1 girective 
R4 § Clear error counter 
#SETF > Set event flag i 
ERR1I y Kranmch om dir error 
$€C BUFF + Read the event flasss FEX 
5 (1 - 64). 
ERR2 § Branch om gir error 
BUFF yRO § Move the event flad 
BUFF +2 9 R1 > V@elues into the 
BUFF +4 9R2 5 resisters 
RUFF +6 9R3 
i Trae and diseley 
; resisters 
om directive errors 
R4 9 R4=2 for read error 
Re4 ¢ R4=1 for set event 
9 flasd error 
$NiSWykO y Error code into RO 
> Trae and disrlay the 
3 registers 
START 


1l.b 


PNID UL DSDW Re 


ry: 
Re 


ht pe 
= ON 


12 


+ 


“Srp “> SP SP Sb SP > SP EP SP “SP SP “CP “ER “E> Oh “ED 


Directives 


SOLUTION 


»TITLE REATIF 
eIQENT /0O1/ 
*ENABRL LC ' Enable lower case 


File LEX21B.MAC 
Modified to use $8 form of the Read All Event Flags #sEX 
directive 


starts ury sets event fleas ls reads the 
moves them into resisters RO-R3 and then 
the £ form of the directive calls. 


This task 
event flags», 
exits. It uses 
as follows; 


Tne flass gre returned 


1-16 
17-32 
33-48 
49-64 


event flads 
event flags 


event flags 
event flags 


word 90 = 
word 
word 2 = 
word 3 = 


*MCALL ROAFGSySETFS*EXITSSes DIRS ¢ Sustem macros 
93EX 
BUFF ¢ + RLKW 4 § ERuffer for event fleas 
y Velues 
SETFt SETFS 1 ; IPE for Set Event Flag 
y directive 
START? CLR R4 § Clear error counter 
LTRS #SETF > Set event flag il 
RCS ERR 1 5 Kranch on dir error 
ROAFSS #BUFF + Read the event flags 
3 (1 ~- 64). 9 9X 
BCS ERR2 ’ Branch on dir error 
MOV RUFF »¥ RO § Move the event flags 
MOV BUFF +2 2R1 > values into the 
MOV RUFF +4 R2 5 resisters 
MOY RUFF +69R3 
IOT > Trar and disrlay 
3 resisters 
> Come here on directive errors 
ERR2 ? INC R4 § R4=2 for read error 
ERR? INC R4 > R4=1 for set event 
§’ flags error 
MOV $USWsRO > Error code into RO 
LOT § Trae and gdisrlay the 
> resisters 
«ENT START 


OI II IN 


3 


CHO? 


10 
20 
C 


30 
AQ 
C 

10 
10 


11 
11 


Directives 


SOLUTION 


REAIF.FTN 
File LEX22.FTN 
Modified for exercises. Set odd numbered flags. !!EX 


This task sets event fled 1 and then reads 
flass 1 to 16 and disrelays them 


INTEGERK2 TEVF C146) ¥TOSW 


Set odd event flads. PlEX 
Nd S WK=1915%2 PlEX 
CALL SETEF (KyIT0SwW) f1EX 
Branch om directive error 


IF (InswW .LT. 0) GOTO 1000 
CONTINUE bIiEX 
Read the event flass into the array ievf. Note 
that im FORTANs we cam only read 1 fleas at a time 
Nd 20 T=1+916 
CALL REAMEF ¢I»TO0SwW)> 
Branch om directive error 
IF (insw «LT. 0) GOTO 1100 
Check I0ISW values 2 means set» O means clear 
Set the ievf value accordingly (1 means sety O 
means clear) 
TF ¢€10SW .EQ. 2) GOTO 10 
TEVF CT) =ITnSwW 
GOTO 20 
TEVF CT = 
CONTINUE 
Write out flad settings» starting with flag 16. 
WRITE (€5%30) 
FORMAT (€*’ EVENT FLAGS 16. TO 1. ARE? %) 
WRITE (€3»40) (CIEVF CJ)» Jiéyl»-1) 
FORMAT ¢€% “s16T2) 
CALL EXIT 
Come here an directive errors 


00 WRITE (521010) Tosw 

10 FORMAT ¢¢ ERROR SETTING FLAG. ERROR CONE = ’»IS) 
CALL EXIT 

00 WRITE (Sy¥1110) Insw 

19 FORMAT (’ ERROR READING FLAG. ERROR CODE = ’»IS> 
CALL EXIT 
ENT 


Directives 


SOLUTION 


1 *TITLE WFLAG 
2 eITENT /017 
3 eENABL LC i Enable lower case 
4 ++ 
3 ¢ FILE LEX23A.MAC 
b 5 
7 § Modified to use global event fled 35. g9EX 
8 j 
9 § This Frogram creates the srour global event flagsys 
10 > clears event flad 65. and waits for it to be set. When 
11 § the fleas is set it writes 8 messase and exits. 
12 5 
13 > Assemble and task-build instructions? 
14 ; 
15 5 =MACRO/LIST/OBJECTIWFLAG LE¢l1ls LIPROGMACS/LIBR-» sEX 
16 5 ~DARY y devi CufdILeEx234 
17 $ SLINK/MAP WFELAGsLEtC Ly LIPROGSUBS/LIBRARY 
18 3 
19? > Tnetell and Run instructions? 
20 > : 
21 3 Rur WELAGy them rum SFLAG. At least one af the 
ears 5 tasks must he installed: or else the RUN command 
23 3 will try to install both tasks under the same 
24 5 names TTTritts 
25 3 
26 »MCALL EXIT#SsWTSEGCyCLEFSCrCRGFSC ¢ Sustem 
27 ; MScros 
28 »*>MCALL TYPE ’ Surrelied macro 
29 
30 START? CLR RO y RO used to identify 
31. , > the error 
32 TYFE . “CLEAR ANT THEN WAIT FOR EF 35. TO BE SET> 
33 y¥EX 
34 CLEFSO 35. + Clear event flags 35.35EX 
35 RCS ERR2 + Branch on directive 
36 ; error 
37 WISE$C 35. s Wait for event flag 35 
38 ; to he set gE 
39 RCS ERR § Branch om directive 
40 j error 
4i TYPE “EF 35. HAS BEEN SET. WFLAG WILL NOW EXIT? 
42 yoEX 
43 EXITS 
44 ERRS? INC RO § RO = 3 if error on 
As y wait for dir 
4S ERR2 3% INC RO 5 RO = 2 if error on 
47 > Clear flas dir 
48 MOV $LISWe RL i Flace OSW in R1 
49 TOT § Trae and dume resisters 
SO +ENT START 
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Directives 


SOLUTION 


FROGRAM WFELAG 
FILE LEX23A.FTN 
Modified to use event flas 35¢10) PlEX 


This task creates the srour slobal event flags, and 
then clears event flags 65. and waits for it to be set. 
When the flas is sety it writes a messase and exits 


Install and run instructions? 


Rur WELAGs then run SFLAG. At least ane of the 
tasks must be installeds or else the RUN command 
Will trys to install both tasks under the same 
mame CTTmn 


WRITE (S920) 


FORMAT (€’ CLEAR ANT WAIT FOR EF 35. TO BE SET’)! !IEX 
CALL CLREF (35s T0SW) 11EX 

IF ¢©0SW LT. 0) GOTO 1100 

CALL WAITFR (35rT0SW)- 1IEX 


IF (TOSW «LT. 0) GOTO 1200 
WRITE (5930) 


FORMAT (’ EF 35. HAS BEEN SET. FWAIT WILL NOW EXIT’) 


IIEX 
CALL EXIT 
Error Frocessing 


00 WRITE (Svi1110) Insw 
10 FORMAT (’ DIRECTIVE ERROR CLEARING EVENT FLAG 35. 
1 0SW = *%,TIS) tIEX 

CALL EXIT 
ag WRITE (S¥1210) Trsw 
10 FORMAT (’% DIRECTIVE ERROR WAITING FOR EVENT FLAG 
1 35. OUSW = ’»IS) 
CALL EXIT 
ENT 


*TITLE SFLAG 
*ITENT /017 
*ENABL LC y Enable lower case 


FILE LEX23B,.MAC 
Modified to use event flag 35. EX 


This task sets event flad 65. It assumes that the 
srour global event fleds have already been crested, 


Assemble and task-build instructions? 


MACRO/LIST LBSC1+1IFROGMACS/LIBRARY » devi CufdISFLAG 


LINK/MAP SFLAGsL BI C1» LIPROGSUBS/LIBRARY 


ll 


Ci Db i fo 


fo’ 
ua 


Install and Ru 
First ru 


command 


Sr ‘Sh “Sh GP “SP Sd Sh SP Wd 


*MCALL. 
*MCALL 


’ 

START? TYRE 
SETF HE 
RCS 
EXITSS 

ERR ¢ MOV 
TOT 
+ENT 


FROGRAM 
FILE LEX23B FT 
Modified to us 


This task sets 


Rim WELA 


name CTT 


cas a Oe Os Sa es a ae DD a 2 


WRITE (3 
FORMAT ¢ 


Saeed 
NN 
— 


CALL SET 


Cand O if it wa 
IF (ITosw 
CALL EXT 

C Error code 

1000 WRITE (S&S 


LO10 FORMAT (7% ODFTRECTIVE 


tvI4) 
CALL EXI 
ENT 


Directives 


SOLUTION 


rm nates? 


m WELAG» 


ther 
the tasks must be installeds or else the RUN 


Tae 


SFLAG. At leas 


t one of 


will tre to install both tasks under 


the same nmamey TTrmms 


EXIT#S »ySETFSC 


TYPE 


. 
, 
a 
y 


System macros 


Surrelied macros 


“EF 35. IS BEING SET. THEN SFLAG WILL EXIT... 


Boe 
ERR 


$0NISWe RD 
START 
SFLAG 


N 


e event flags 35. 


event flas 465. 


Ge then 


will true to install 


rir) « 


¥10) 


CURE 304 


Install and run instructions? 


SFLAG. 


tasks must be installed,» or else the RUN 


c> Ss “> “SP ED 


Set event flas 


¥9EX 
35+ ¥9EX 


Branch om dir error 


Exit 
Save SW 
Trae and cum 


resisters 


PIEX 


It gssumes that the 
rou global event flags have already been created. 


At least ane of the 


both tasks under the 


BEING 


EF (35 INSwW) 
C The DSW value returned for SETEF is 2 if it was set 


$s clear. 
«LT. OF GOTO 1000 


T 


¥1010) 


Y 


A 1 is 


ERROR 


12 


SET. THEN SFLAG WILL EXIT’) 


SETTING EF 35. 


command 
same 


PIlEX 
PlEX 


NOT returned for success 


NSW = % 
PlEX 


= 


y 


GON B® CID GI tS 


~ 


Directives 


SOLUTION 


*TITLE LEX24 
*IQENT /01/7 
*ENABL LC > Ensble lower case 


+ 


FILE LEX24.MAC 


This Frosgram creates the srour global event flasdsys 
clears event flags 635. does some work and reriodically 
cehcks event flags 65. When the fleas is set it writes 2 
message and exits. 


Assemble and task-build instructions? 


MACRO/LIST/OBJECTIWFLAG LE? Cis LIFROGMACS/LIB-»s sEX 
RARY sdevs CufdILexs4 #9 EX 
LINK/MAF WELAG»y LE? C1» LIFROGSUBS/LIBRARY 


Install and Rum instructions? 


Rum WFELAGs then run SFLAG. At least ane of the 
tasks must he installed: or else the RUN command 
will try to anstall both tasks under the same 
names TTrrse 


: 
1 


“A> “Sh SP “Sh “Sr “SDP “Ch “EP “ED “MED “Ch “C> SP “SP MP “E> “OP “E> “> Wr SD 


*MCALL EXIT#S»WTSE$CyCLEFSCyCRGFSC ¢ Sustem 
; Macros 


*MCALL TYPE + Surrlied macra 
START? CLR RO ys RO used to identify 
y the error 
TYFE “LEX24 IS CREATING THE GROUP GLOBAL EVENT FLAGS? 
CRGOF $0 ’ Create srour slobal 
; event flags 
BCC OK § Branch on directive ok 


¢ If srour slohbal event flads already exists 
y Just disrelay message and continue 
CMF $NSWes FTE. RSU > Check for efs already 
$ in existence 
BNE ERR1 * Branch on any other 
s dir error 


TYFE “GROUP GLOBAL EVENT FLAGS ALREADY EXIST? 
ORS TYFE “CLEAR EF 65. WORK UNTIL IT IS SET 


CLEFEGO 63. > Clear event flags 65. 
RCS ERR 2 § Branch on directive 
y error 
AGAIN? CLR RA § Clear counter ¥¥EX 
§ Looe 2KK16 timesy then check flag 9 9EX 
LOOF? INC Rd y Increment counter #9 EX 
ENE LOOF > Not vet ecxecled: loors sEX 
+ asain ¥ EX 


13 


ERR3% INC RO 


ERR2 3 INC RO 


ERR: INC RO 


ag aR oes Ba aoe ed Fen on: 
Re RZ LS RE EELS 


2 


oO 
ae 


x 


CME os TL eo 


oy. 
ars 


Directives 


SOLUTION 


TYPE COUNTER HAS CYCLED: + Tiselay messasder sex 
CLEF$C 465. 

RCS ERRS 

CMF $USWs#tIS.SET 


“er 


Rranch on dir errors EX 
IS.SET means flast was sEXx 
set ¥¥EX 
RNE AGAIN Norv loor asain 99 EX 
TYPE “EF 65. HAS BEEN SET. LEX24 WILL NOW EXIT: 

EXITS$S 


S> “S> “> SP 


RO = 3 if error om #FEX 
Clear Flas dir while 
waiting 

RO = 2 if error on 
clear flad dir 

RO = 1 if error on 
create srour flags dir 

Flace [9W in R1 

Trae and dumre resisters 


MOV — S$0SWse RI 


“a> “arp Sr SP Gr “EP “E> Wr <P 


eEND START 


FROGRAM LEX24 
FILE LEX24.F TN 


This task creates the sroure slobal event flaess, and 
then clears event flags 65. and does some work while 
waiting for it to he set. When the flags is sety it 
writes @ messese and exits 


Install and run instruetions: 
Rum WEX24s then rum SFLAG. At least one of the 
tasks must be installed»s or else the RUN command 


will tre to install both tasks under the same 
name OTT 


14 


Use Clear to read flasyeEXx - 


2 
07 
Aree Ane 
errr 


WRITE (Syl 
FORMAT ¢7 


CALL CRGF 
LF crinsw . 
WRITE 
FORMAT ¢¢ 

CALL CLREF 
TF ciosw . 


2a CONTINUE 
WRITE (S92 
FORMAT (7 
CALL REATIE 
IF ¢CiaGW . 
IF Ci0GSW . 
WRITE 
FORMAT ¢¢ 
CALL EXIT 

Error Fracessins 


30 


C 

ee 
C for code o 
IF ¢inSwW . 


Check 
900 
WRITE (S99 
me) 
GOTO 15 
Tor fatal 
WRITE (Sel 
FORMAT ¢7 
LER STS. TS 
CALL EXIT 
WRITE (S94 
FORMAT ¢7 
1 SW = “9 
CALL EXIT 
WRITE (S39 
FORMAT ¢7 
1 45. 
CALL. 
ENT 


C Here 
1000 
O10 


1100 
L110 


a 


easy 
Ng 


NSW = 


Directives 


SOLUTION 


0) 


LEX24 IS CREATING 


Cy TSW) 
OF GOTO POO 


LT 
0)? 


CLEAR EF 65. 


THE GROUF GLOBAL 


PIEX 


WORK UNTIL IT IS SET‘) 


C65" T0SW) 


LT. 


8) 


COUNTER 
Fo €6S9 TSW) 
QO)? GOTO 
TO 


LT. 
Nk s 


(S30) 


EF 


fo -t7y 


NE. 


10) 


O10) 


2) GOTO 
NO 25 Rely 65535 


Lay 
ae 


6a 


> GO 


HAS CYCLED >) 


HAS BEEN SET. 


1100 
ltEX 
1tEX 
ItEX 
lex 
1 tEX 
11EX 
1iEX 


1200 


oo 
doe Ane 


LEX24 WILL NOW EXIT’) 


meanina flass glreaedy exist 


~17) GOTQ 1000 
C In that casey Just disles s messade and comtinue. 


errors y 


nsw 


QIRECTIVE 


Won 
110) 
IS) 

wioa) 


QTRE 


fy 


é 


on) 


0 
I 


y IS) 


nsw 


INSw 


TIVE 


kr 
wD 


Wig 


FORMAT ¢¢ GROUP GLOBAL EVENT FLAGS ALREADY EXIST’) 


arelay messase and exit 


ERROR CREATING GROUF GLOBAL 


ERROR CLEARING EVENT FLAG 6% — 


ERROR READING EVENT FLAG 
PtEX 


15 


EVENT FLAGS 7%) 


CONG CHD WHE 


“a> “Sh EP “Sh SP SP “Ge “GP Bh SP Cr SP Sh SP EP “EP Chr SP “EP SH “E> ED 


+ 


ST 


a 
y 
a 
’ 


OK 


«TITLE 
«IDENT 
« ENABL. 


FILE LEX25+MAC 


Directives 


SOLUTION 


WFLAG 
/O1/ 
LC 


y 


Enable low 


Modified to include e Reauvested Exit AST 


This. -rogram 


creates 
clears event flag 65. 


the srour 
and waits 


for it to 


the fleas is set it writes 38 messase and ex 


Assemble and task-build instructions? 


MACRO/LIST/OBJECT! ee LBS C1» LIFROGMACS/LIB- 


RARY»devi CufdILexe2 
WFLAGsLRiC1»1IPROGSUBS/LIBRARY 


_ LINK/MAF 


Install and Run 


Run WFLAG, then run 


tasks must be installed,» 
will try to install both 
TT rit. 


name y 
»*MCALL 


*MCALL 
*MCALL 


ART? CLR 
SREASC 
RCS 


TYPE 
CRGF $C 


BCC 


instructions? 


SFLAG. 
or else the RUN command 
tasks under 


At least 


EXITSS»WTSESCrCLEF $C» CRGFSC. 


SREASC »ASTXSS 


TYPE 
RO 
REXAST | 


ERRO 


“<WFLAG IS CREATING THE GROUP GLOBAL EVENT FLAGS 


OK 


a 
y 
a 
¥ 


“@> “> G> “> “E> 


Sustem Mac 
Surrlied m 


RO used to 
the error 
Set ur Ree 
AST 

Branch on 


Create stra 


— avent fla 


Branch on 


If srour dlobal event flass already exists 
Just disrelay message and continue 


CMF 
BNE 


TYPE 

; TYPE 
CLEF SC 
BCS 


$0USWy FIle. RSU 


ERR1 


Check for 
in existe 

Rranch on 

dir error 


er Case 


¥9EX 


Slohbal event fladsy 


be set. When 
its, 


PFE 
PE 


one of the 


the same 


s Sustem 

y Macros 
ros 99 EX 
acro 


identify 


uested Exit 
99 EX 
dir error 


ur slobel 
5 
directive ok. 


efs already 
nce 
any other 


<GROUP GLOBAL EVENT FLAGS ALREADY EXIST= 
WAIT FOR EF 


CLEAR ANI THEN 


65. 
ERR2 


16 


“S> “S> “E> 


Clear even 
Branch on 
error 


65. TO RE SET? 


t flas 65, 
directive 


WISE$C 65. r] 
r] 
RCS ERRS3 ; 
; 
TYFE 
EXIT$S 
* AST Service routine 
REXAST? TYFE WHY ME? NOT THIS 
ASTX$S r) 
ERR3? INC RO 3 
5 
ERR2? INC RO 5 
; 
ERK? INC RO ; 
3 
ERRO? MOV SNSWy RI ; 
$ 
5 
IoT 3 
«ENT START 


FROGRAM WFLAG 


FILE LEX25.F TN 


This task 
then 


When the flas is 


INO I NAAN AI 


Directives 


SOLUTION 


Install and rum instructions? 


Modified to imclude @ Reauested Exit AST 


creates the srour slobel 
clears event flas 65. 
sety 


and waits 
it writes 38 messaese 


Wait for event flag 65 


to be set 
Branch on 
error 


TIME! !s » 


AST exit to return 
RO = 3 if error on 
wait for dir 
RO = 2 if error on 
clear flas dir 
RO = 1 if error on 
create srour 
Flace [SW in Ris 
RO=0 for srecify 
requested exit 
Trae and dumr 


'lEX 


event fladsy 
for it 


directive 


SEF 65. HAS BEEN SET. WFLAG WILL NOW EXIT> 


¥9EX 


Tere message 


yFEX 
¥9EX 


flads dir: 
leave 


99EX 


AST err 
resisters 


and 
to he set. 
and exits 


EVENT FLAGS?) 


C Rum WELAGs then rum SFLAG. At least one of the 
C tasks must be installed»s or else the RUN command 
C will try to install both tasks under the same 
C name (TTmnm 
C 
EXTERNAL REXAST tlEX 
C Set ur Reavested Exit AST Plex - 
CALL SREA CREXAST» IUSW) PiEX 
IF (f0SW «LT. 0) GOTO X50 Plex 
WRITE (S¥10) 
10 FORMAT (€’ WFLAG IS CREATING THE GROUF GLOBAL 
CALL CRGF ¢»sT0SwW) 
IF (IOSW .LT. 0) GOTO 300 
1S WRITE (S20) 
20 FORMAT ¢(’ CLEAR ANT) WAIT FOR EF 65. TO BE SET’) 
CALL CLREF (465+I0SW) 
IF (I0SW .LT. 0) GOTO 1100 
CALL WAITFR (65+I0SW) 


IF ¢(TDSw 


LT. 
WRITE (S30) 


0) GOTO 1200 
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30 


Directives 


SOLUTION 


FORMAT (’ EF 65. HAS 


CALL EXIT 


C Error rrocessing 


BEEN SET. 


FWAIT WILL 


NOW EXIT’) 


C Check for code of -17» meaning flags already exist 
IF (ItSW .NE. ~17) GOTO 1000 


900 


C In that casey 


910 


C Here for fatal errorsys 


950 
960 


1000 
1010 


1100 
1110 


1200 


1210 


AST 


75 


C Set 


WRITE (59910) 


Just dislay &@ message and cantinue. 


FORMAT ¢’ GROUF GLOBAL EVENT FLAGS ALREADY EXIST’) 


GOTO 1i5 


WRITE (539960) IUISW 


_ FORMAT ¢¢ DIRECTIVE 


1 DSW = ’sIS) 
CALL EXIT 


WRITE (521010) IDSwW 
FORMAT (% DIRECTIVE 
1EF‘’’S. DSW = “’»IS) 


CALL EXIT 


WRITE (S»1110) ITnSwW 
FORMAT ¢(”% DTRECTIVE 


1 DSW = “’yI5) 
CALL EXIT 


WRITE (S91210) ToSwW 
FORMAT ¢€¢% TIRECTIVE 


1 65. [SW = “»TS) 
CALL EXIT 

ENT 

SUBROUTINE REXAST 


service routine 


ERROR 


ERROR 


ERROR 


INTEGER FLIST(6)*IOWVE 
REAL TEXT1(6)*TEXT2¢7) 


DATA ITOWVE/"*11000/7 


DATA TEXT1 /’°TRYI’s’NG T’s’0 AB’» 


L/ORT ’*’ME %s “EH? %/ 
DATA TEXT2 /’°WE Ws “ONT”? LET’ ys 
1’ YOU’s’ THI’s’S TI’»’ME! ¢/7 


ur for QIO directive 


CALL GETADR(PLIST(1)»TEXTIC1)) 


FLIST(2) = 23 
FLIST(3) = "40 


QIO directive to disrlay text 
CALL WTQTOCTOWVBsSyivs»FPLIST) 


use for 2nd line of text 


CALL. GETADR(PLISTCL) »TEXT2¢1)) 


PLIST(2) = 27 


QIO directive to disrlay text 
CALL WTQIOCIOWVEySsivy» 


RETURN 
ENT 
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FLIST) 


diselay message and exit 


1 EX 


SETTING UF AST ROUTINE. 
PItEX 


1 EX 


CREATING GROUF GLOBAL 


CLEARING EVENT FLAG 


VEX 
!EX 
1EX 
1EX 
!EX 
1 EX 
1EX 
TEX 
1EX 
1EX 
1EX 
EX 
'EX 
EX 
1EX 
!EX 
EX 
'EX 
1EX 
1 EX 
1EX 
VEX 
VEX 
IEX 
1 EX 


656 


S WAITING FOR EVENT FLAG 


Sr “> “GP SP Mh “SP KP “ES SP Cd SP SP > CD SP SP “EP “CD 


Directives 


SOLUTION 


TITLE SST 
+INENT /01/7 
*ENABL LC > Enable lower case 


FILE LEX26.MAC 


t 


Modified to include an odd address trar 5 9EX 


This task sets ur an SST vector table to handle SST’s 
for BFTy TOTe and odd address trares. It then executes 
instructions to cause these trars to occur. In each 
SST routines 3&@ messase is disrlayed and then the task 
continues. Finaglivs a TRAP instruction is executed, 
Since mo user SST routine is srecified for TRAF» the 
Executive aborts the task. 


Assemble and task-huild instructions? 


MACRO/LIST L&iC1l» LIPROGMACS/LIBRARY » devi CufdILEX26 
LINK/MAP LEX269LB3 C191 IFROGSUBS/LIBRARY 


*MCALL SVTKS#CeEXITSS ¢ External system macros 
+MCALL TYFE § External surelied macro 


y 
VTABLE? .WORTD ONUTRE sMPTVIOsBFTsTOT ¢ SST vector table 
> ¥¥EX 
START? SVTK$C VTABLE»s4 > Have Executive set ur 
> SST table 
RFT ’ RET instruction 
TST 1 + Test location ly #FEX 
§ Causing an odd FsEX 
¢ addr trar ¥ 9 EX 
CLR 120000 s Clear location 120000» 
y Causing & memory 
y Frotect violation 
IOT § IOT instruction 
EXITS > Exit 
NEW? TRAF § TRAF instruction 
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§ SST routines 


y 


OUDTRE 


MF TVIO$ 


BFT 


IOT? 


TYPE 


RTI 


TYPE 


CMF 
TST 


RTI 


TYPE 


RTI 
TYPE 
MOV 


-RTI 


+END 


Directives 


SOLUTION 


“O00 ADURESS TRAF CAUGHT? $ Ture 


“MEMORY FROTECT 
(SPO +» (SPO+ 
(SF) + 

<BFT CAUGHT: 


<IOT CAUGHT: 
#NEW» (SF) 


START 
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a 


? 


$ 
VIOLATION CAUGHT: # Tyre 


“S> > “> SP “Eh CP EP “S> “CP EP > ES 


§ 
y Messade 
Return from trar § 


message 
Clean off three 


srecific stack words 
for memory erotect SST 


Return from trar 

Tyre message 

Return from trar 

Tyre messade 

Chande FC on stack so 
return from trar 
returns to NEW 

Return from trar 


Using the QIO Directive 
TEST/EXERCISE 


Modify SYNCHQ or ASYNCQ to write prompting text (e.g., "TYPE 
SOME TEXT: ") before issuing the read. 


In MACRO-11, modify NUMER, replacing the error handling code 
with code which writes out an error message plus’ the 
appropriate status code. Refer to SYNQER for sample error 
messages. 


Modify NOECHO to use one QIO directive to both write the. 
prompt and read the input. Also, have the read timeout if no 
key is struck for 20(18) seconds, in which case, display a 
timeout message and exit. | 


Write a task which prints a message on every terminal in the 
system. The task should break through any pending I/O at the 
terminal. (Note: This task must be task-built as a 
privileged task, using the /PRIVILEGED:8 qualifier in the 
task-build command; /PR:@ in MCR) | 
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NGNBRCG SWS 
+ 


“C> WP “Gr “SP “E> SP “> “EP BP SP 


Using the QIO Directive 


SOLUTION 


»TITLE SYNCHQ 
+IQENT /017 
*ENABL LC ¢ Enable lower case 


FILE LEX31.MAC 

Modified to display rrometing text ¥xEX 
This task reads sg line of text from the terminals 
converts all urrer case cheracters to lower casey and 
Frints the converted message back at the terminal. It 


uses syumchronous QIO directives, 


External sustem 
macros 


*+MCALL QTOWSC sQTOWSS vEXI TSS 


a 
¥ 
a 
y 


ITOSBE$ *BERW 2 


+ I/0 Status Block 
RUFF 3 +BLKE 80, 2 $s Text buffer 
FRMPT: ASCII /TYFE SOME TEXT? 7 ¢ Fromet ye E 
LERMET =.-FPRMPT ’ Lensth of fFromet s9E 
»EVEN IE 
START? CLR RS Error Count 


Error indicator ~ 9 
means directive error 
(OSW in RS)» mes 
means I/O error 


¥ 
CLR R4 j 
y 
5 
; 
y (1/0 status in R33) 
y 
; 
; 
; 
3 
bd 


QIOWSC T[O.WVBs Sri OSB» » <P RMPT »LERMPT » 40> 


tisrelay rromet 9 9EX 
RCS ERRS Rranch on dir errors sEX 
TSTB IOSE Check for I/0 errors sEX 
BLT ERR3A Rranch on I/O error?’ EX 


QIOWSC T[O.RVE»Sels/TOSRy»<BUFF*80.> § Issue 


a 


5 read 


RCS ERR1 § Branch on dir error 
TSTB IOSB + Check for I/0 error 
BLT ERRiA § Branch on I/O error 
MOV TOSB+2 RO 3 Get count of characters 
ys tured in 
CLR Ri § Offset into buffer to 
§ character 
LOOF? CMFR RUFF CRI) s#°A > Check for urrer case 
s ASCII character 
BLT NEXT ¢§ Kranch if below range 
CMF RE BUFF (CR1) + #°Z 
RGT NEXT 5 Branch if shove range 
Here if urrer caser move to resister R2 and convert 
MOVE — BUFF CRI) »R2 ¥ Move to resister 
ALL #3249R2 y Convert to lower case 
MOVE R2»yBUFF CRI) Replace in message 
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mM KK 


NEXT 


> 
§’ Error 
, 
E 


RRSAs 


ERR2A$ 
ERRLAS 


ERR3$ 


ERR2? 
ERR1: 


INC 
SOK 
QIOWsS 
RCS 
TSTE 
BLT 
EXITS 
code 
INC 
INC 
INC 
MOVE 
NEC 
IOT 
INC 
INC 
INC 
MOV 


TOT 


Using the QIO Directive 


SOLUTION 


Ri 
RO» LOOF 


#IO.WVURy #5 9t1 yo t 


ERR2 
IOQSE 
ERR2A 


RS 
RS 
RS 
TOSE»R3 


R4 


RS 


RS 
RS 
$B eRS 


“END START 
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a 
y 
4 
g 
4 
, 
a 
¥ 


a> “Sr “E> Gr Wo 


> Eh Gr > E> “SP Gr GP “GP “Ed ‘CP “SP “GP SP GP CED “Gr Cr 


Increment offset into 
buffer to mext char 
Llecrement count of 
characters left to check. 


IOSEy » .#BUFF y LOSER+2 » #40> 


Write text 

BRranch om dir error 
Check for I/O error 
Rranch om I/O error 
Exat 


RS=3. means Fromet QO 


error ¥¥EX 
Ur error count ~- 2nd aro 
~ ist QI0 


I/O error. I/0 status | 
to RS. 

Negative value in R4 
means I/O error 

Trar and display 
registers 

RS=3 means Fromet QO 
error ¥9EX 

Ur error count - 2nd QI0 

~ Ist QIo 

Directive error. [SW 

to R3y leave R4=0. 

Trar and disrlay 
resisters 


Using the QIO Directive 


SOLUTION 


PROGRAM ASYNCQ 


MOOwWNKRUMDSA HH 


C Set ur 


C 

C FILE LEX31.FTN 

Cc 

C Modified to diselay ferometing text PlTEX 

C 

C This rrosgram reads a line of text from the terminal» 
C converts any urrer case cheraecters to lower case and 
C rrints the converted messase back at the terminal. 

C It uses esymchronous QIOs and an event flags for 

C synchronization. 

C 


RYTE ITOSK(4),IBUF (80) 
TIIMENSION IFARC46) sKC10) 
EQUIVALENCE (NUM»sTOSKC3) > 
REAL FRMFPT (4) 1 lEX 
DATA FRMPT /‘TYPE‘’s’ SOM’s’E TE’s’XT? “/SITEX 
DATA ITOWVE/*11000/ 
DATA ITORVE/*10400/ 
TATA IVFC/*40/ 
values for the QI0 
IUNIT#S 


C Set ur for QI0 to issue Frromet 1'EX 
CALL GETADR(IFPARCI) »PRMPTC1)> PlEX 
IFAR(2)=16 1tEX 
IFAR(3)="40 Pl EX 


C Issue 


1 
! 
1 
i 
asymchronous write PtEX 
CALL QIOCIOWVB» IUNITs Ss »TOSByIPARy ING) PlEX 

i 

i 

i 

1 

i 

1 


IF ¢I0S .LT. 0) GOTO 780 I1EX 
CALL WAITFR(S»TInNS) 1'EX 
IF (10S .LT. 0) GOTO 785 IlEX 
IF ¢€IOSBC(1) LT. 0) GOTO 799 I1EX 
C Set ur for read 1I1EX 
IFAR(C3)=0 1lEX 


C Get th 
CG Issue 


C Check. 


C Lo som 


IFAR(2)=80 

e address of the I/0 buffer 

CALL GETADIRCIFARCI)»I BUF C1))> 

the QIo 

CALL QLOCTORVByIUNITsS»+IOSBsIFARy INS) 
the directive status 

IF («ius LT. 0) GO TO 800 

e work while I/0 oreration is being rerformed 
nO SO I=1+10 


KCI) =64xkI 

val @) CONTINUE 

C Wait for I/70 to comerlete 
CALL WATTFR(SsTI0S) 

C Check directive status 


C Check 


IF (10S .LT. 0) GO TO 8OS 
the I/0 status 
IF (IOSB(1) .LT. 0) GO TO 810 
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Using the QIO Directive 


SOLUTION 


C Convert to lowercase 
00 100 I=1»NUM 
IF (ITBUFCI>D LT. ’A’) GO TO 100 
IF (IBUF CI) .GT. 132) GO TO 100 
IBUF (CI) =IBUFCI)D+32 
100 CONTINUE 
C Set ur I/0 Parameter List for write 
IF AR C2) =NUM 
IF AR C3) =IVFC 
Write the converted line to the terminal 
CALL QIOCTOWVRs IUNITs Sr» TOSK&s IFAR, INS) 
Cc Check directive status 
C 


a] 


IF (10S .LT. 0) GO TO 820 
Wait for the I[/0 to comrlete 
CALL WAITFR(SsIns) 
Check. directive status 
IF (10S .LT. 0) GO TO 825 
C Check the I/0 status 
IF (1OSEB(1) .LT. 0) GO TO 830 


OO 


GQ TO 850 
780 WRITE CSs880) 10S fI1EX 
GO TO 8350 PlEX 
785 WRITE (S885) 10S NYEX 
GO TO 850 PIEX 
790 WRITE (S»890)TOSK¢(1) bIEX 
GO TO 850 rlEX 
800 WRITE CSs900) 10S 
GO TO 850 
805 WRITE (Ss 905) 1085 
GO TO 850 
810 WRITE (Ss910) T0SK¢(1) 
GO TO 830 
820 WRITE CS» 920) T0IS 
GO TO 850 
8235 WRITE (S925) 1nS 
GO TO 850 
830 WRITE (S930) T0SE(1) 
830 CALL EXIT 
880 FORMAT(’ TERECTIVE ERROR ON WRITE OF FROMFPTy !!1EX 
1 CODE = *sT4) PtEX 
885 FORMATC ‘DIRECTIVE ERROR ON WAIT FOR WRITE OF !!EX 
IFROMFT, CODE = ’»I4) PiEX 
890 FORMATC’ T/0 ERROR ON WRITE OF FPROMFPTs CODE =! !1EX 
1 ’*f4) 1 'EX 
900 FORMAT(’ DIRECTIVE ERROR ON READy CODE = ’»T4) 
905 FORMAT(’ DIRECTIVE ERROR ON 1ST WAIT, CODE = ’»14) 
910 FORMAT(C’ I/O ERROR ON REAL, CODE = ’ 14) 
920 FORMAT(’ DIRECTIVE ERROR ON WRITE» CODE = ’»T4) 
925 FORMAT(’ DFTRECTIVE ERROR ON 2ND WAIT» COME = ’y14) 
930 FORMAT(’ I/0 ERROR ON WRITE» CODE = ’»T4) 
ENT! 
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Using the QIO Directive | 


SOLUTION | 


*+TITLE NUMER 
+IQENT /01/7 
*+ENABL LC § Enable lower case 
r+ 
¢ FILE LEX32.MAC 
ba 
§ Modified to include error messade code 93 EX 
y 
* This task does 38 simrle addition and outruts the 
s results. It demonstrates the use of $EDMSG for 
§ formatting messases with numeric data 
Siac 
*MCALL QIOWS*sEXITSSeDIRS ¢ Sustem macros 
eMCALL QTOWSS y Sustem macros s5¢EX 
*+NLIST BEX > To not list binary 
: > extensions 
> Lata oe 
At «WORD 109 * ist addend and start 
§ of argument block. 
B3 »WORD 22 § 2nd addend 
C3 + BLKW 1 § Location for sum 
+ 
OUT? QrowWs TO.WVBsSelv»lOSRy»<BUFy»40> 3Q10 for 
y OUtrUtL messase 
IOSE?: +BLKW 2 + I/O status block 
gy 
7 Set ur for $E0NSG 
; 
BUF ¢ «BLAKE 80. § Outrut buffer 
FMES3 “ASCIZ /240. WAS AMMEN TO “40. GIVING ZD.7 
¢ Format string 
§ Set ur for error messedes using $E0MSG 99 EX 
; +EVEN ¥3EX 
ARG? *BLAW 1 + Argument blocks sEX 
FMTi0e .ASCIZ /NIRECTIVE ERROR ON WRITEs DSW = ZD/ $5$EX 
FMTiI: .ASCIZ ‘’I/0 ERROR ON WRITEs I70 STATUS = ZI’ ssEX 
*EVEN | : ye EX 
»+LIST REX § List binary extensions 
+EVEN $ Move to word boundary 
START: MOV ArC § Move ist addend to sum 
y word 
ALK ByC § Add 2nd addend to form 
y slum 
+ Set ur for call to $EDTMSG 
MOV #RUF » RO § Addr of outrut huffer 
MOV #FMESsR1 y Addr of format string 
MOV #AxR2 > Addr of arsument block 
CALL $E0MSG + Make cally character 
y count returned in Ri 
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Error 


[Tj «> ~e> > 


RRITs 


ERRIDE 


a 


ELAWT 3 


MOV R1isOUT+HQ. IOFL+2 
NIRS #OUT 
RCS ERR Lt 
TSTE IOSk& 
BLT ERRII . 
EXIT$S 
code 
MOV #FMT1IIyR1 
MOVE IOSK»RO 
MOV ROv ARG 
BR ELIAWT 
MOV #PMTALiy RI 
MOV #$0SWy» ARG 
§ Finish setting ur for sE0MSG 
MOV #BUF »RO 
MOV #ARG» RO 
CALL $EDNMSG 
QIOWSS F#IO.WVBy £5 8t yyy 
EXIT$S 


Using the QIO Directive | 


SOLUTION. 


+END START 
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“a> “S> 


“S> “> “S> “E>? “Go 


“E> “Gr “E> “EP “ED “Sh “EP GP Sr “E> “Ed 


“a> ‘> 3 Se E> “ED 


Flace # of characters 
to write into IOFL 
in QIO GFE 

Write outrut messade 

RKranch om dir error 

Check for I/0 error 

Branch om I/Q error 


Format strings for #¢¢EX 
ist I/O error message 
Extend sism om I/O ¢¢EX 
status bute bu movimnss sEX 
it through RO to the ¢FEX 


argument block. $F IEX 
Kranch to common edits + EX 
and write code 99 EX 
Format string for ist#sEX 
directive error 9 FIEX 
Move [iSW to arse blocks sEX 
$9 EX 


OQuteut buffer address sEX 
Arsdument block address %EX 
Edit outrut string 5 7EX 


SEBUF eR» #402 § Writes sex 


out message ¥ 9 EX 
Exit sEX 


“> 


MOND CHD GW hoe 


10 


+ 


from 


e> “> “Srp “> Sr SP “Cr SP S> SP WP SP SP Sd 


Yata 


“er “> “EP 


MES + 
LEN 
BUFF 3 


BLEN 
BUF 3 
TMOMS 3 
LTMOMS 


IOSEH: 
LENT: 


> Tefine functions locally to all 


word which was 


Using the QIO Directive 


SOLUTION 


*TITLE NOECHO 
*IDENT 7/017 
*ENABL LC 


FILE LEX33,.MAC 


Modified to combine QIOs 


a 


y 


the terminal without echo. 


entered, 


Enable lower case 


and include timeout g5EX 


This task writes @ Promet and then issues a QIO to read 


It then disrelays the 


Assemble and task-build instructions! 


MACRO/LIST LBS C11 FP ROGMACS/LIBRARY sdevi CuicILEX33 


LINK/MAFP LEX33»FROGSUBS/LIBRARY 


*MCALL EXITS$S*QIOWSC*QIOWSS § Sustem macros 
*MCALL OITRERR»: TOERR 3 


«NLIST BEX 


3 
3 
“ASCII /SECRET WORD? 7 $ 
9 


= »-MES 


Surerelied macros 


Tion’t list of binary 
extensions 
Fromet messese 


Length of fFromet 


“ASCILT “152=/N0 LONGER A SECRET WORDS / 


= + ~ BUFF 
«BLAKE 80. 
“ASCII /READ 
=4-TMOMS 

+EVEN 

»WORD 0 
»WORT 0 


§ statement to shorten 


IO.RFR 
TF. RNE 
TF.TMO 
I0.FNC 


Code 


“sr “> “a> 


rn 


START $ 


=004400 
=20 


#200 


="TO.RPR! TF. RNE! TF. TMO™ 


«LIST BEX 


<> “> “@> 


TIMED OUT/ 


a 
¥ 
a 
bd 
a 
bd 
a 
g 


directive 


“@> “Er SP “> Sd 


QTOWSC ITO.FNCySe1s»TOSK,» 


BCS QNERR1L 


a 
, 
a 
’ 
4 
¥ 
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Freceding remark. 

Lensth of Remark. 

Ineut buffer 

§ Timeout messade bE 
gy 


IOSEK is broken into 
two rarts for 
convenience. 

ow us of an assismment 
statement 

Lefine functions 


QIO function code 
List binary extensions 


y< BUF +80.722MES»LEN: 44> 

Issue read after #F#EX 
Fromet 99 EX 
Branch on dir error 


DUTRAOK 


NOTIMO: 


; 
; 
; 
IERRL: 
IERR33 
TERR43 
DERR1t 


NERRS 3 
DERR4 ¢ 


TST 
BLT 
CMP 
BNE 
QIOWSC 
RCC 


WMP 


TSTE 
RLT 
EXIT$S 
MOV 
ALY 
QIOWsS 


RCS 
STE 

BLT. 

EXIT&S 


IOERR 


IOERR 
TOERR 
NIRERR 


LIRERR 
NIRERR 
-END 


Using the QIO Directive 


SOLUTION 


IOS ’ Check for I/0 error 
_IERR1 § Branch on I/0 error 
[OSKr#€IS.TMO ¢* Check for timeout a9 
NOTIMO § Branch if no timeouts se 
IO.WVBsSo9lsrTOSB, » Z<TMOMS oL. TMOMS » 40% 9FE 
QVIR40K § Branch on dir ok ~- #5E 
+ need thisy too far FFE 
§ for branch 
NERR4 5 Jume on dir error ¢FEX 
IOSE y Check for I/0 error $sE 
IERR4 § Branch on I/0 error #3€ 
> Exit gE 
LENT »RO ¢ Get length of inrut FFE 
#BLEN»RO 5 Add length of remark 


#10. WVBR» 5281+ LTOSKy »< FBRUFF rROe £40> 


Write out text 


s 


TERRS § Branch on dir error 

TOSE ¢ Check for I/0 error 

TERRS § Branch om I/0 error 
§ Exit 


Errors come here 


#IOSBs<Error on REAL AFTER PROMPT? 9 59EX 
. > liselay message and 
#[OSBe<Error on 2nd WRITE> #§ exit 
#IOSBy<Error writings timeout message>% sEX 
<Error im QIO om READ AFTER PROMPT 3 3EX 
§ [liselay dir message and 
LError im QIO on 2nd WRITES § e@xait 


KK KOK 


“Error writing timeout messade> >59EX 


START 
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Using the QIO Directive 


SOLUTION 


FROGRAM NOECHO 


Cc 

C File LEX33.F TN 

C 

C Modified to use read after rromet and to timeout !!EX 

C 

C This task frromets for inrutys reads it without echo and 

C then skies to the next line and diselays the ineut 

C text and exits. 

C 
RYTE RUFF (80) »TOSE(4)sCRC1) 
INTEGER FARM(46) 
REAL FROMFT ¢4) ' Promet PIEX 

Cc 
IATA TOFNC 4"4620/ ! Qro PlEX 

C ! funetion! 'EX 

C ! .code IIEX 
DATA ISTMO /2/ ! Timeout !!EX 

C ! status !!EX 
DATA CR /°157 ! Carriase return character 
TATA FROMPT /’SECR’»9 “ET W's “ORD 797 i alia 

G ! Text Plex 

C Set ur the I/0 rarameter list 
CALL GETADR (FARM(C1)» RUFF C1) ) ! puffer address 
FPARM(2) = 80 ! Buffer length 
FARM(C3) = 2 ! Timeout = 2 !!ITEX 

Cc ! * 10 sec PlEX 
CALL GETANIR (CPFARM(C4) *FROMPTC1)) ! Fromet addr !!EX 
FARM(S) = 13 ' Fromet lLensth! 1 EX 
FARM(6) = "44 ! Vertical 11tEX 

C ! 6format contr! lEX 


C Issue read no echoy read after rromety with timeout !!EX 
CALL WTQIO (IOFNC+sSels*sTOSByFARMs IDS) 
IF (10S .LT. 02 GO TO 100 1 Qir error? 
IF (TOSBC1) «LT. OF GO TO 110 ! ¥/0 error? 

C Check for timeout 


IF ¢(ITOS8&(1) .NE. ISTMO) GOTO 1 ! Branch if no! lex 
C ! 6 timeout PIEX 
TYPE Ky ’REAY TIMED OUT’ ! fliselasy I1EX 
C ! message . !!EX 
CALL EXIT f and exit 1I1EX 
1 — WRITE (S92) CRey (BUFF CI)»T=1sIOSBC3)) $! Echo inreut 
2 FORMAT (% ‘’sAly’NO LONGER A SECRET WORD? ’»80A1) 
CALL EXIT 
C 
C Error conditions 
C 
100 TYPE X¥» “DIRECTIVE ERROR ON READ. STATUS = ’»TIDS 
CALL EXIT 
110 TYFE X» ’I/0 ERROR ON REAL. CODE = ‘»IOSKH(1) 
CALL EXIT 
ENT 
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Using the QIO Directive 


SOLUTION | 


»-TITLE LEX34 
~ITENT /017 
eENABL LC 6 Enable lower cease 


FILE LEX34.MAC 
Solution to Module 3, Lah Exercise 4 


Task does a write breakthrough to all terminals. 


Assemble and task-hbuild insructions? 


“MACRO/LIST LE& CLs 1IFROGMACS/LIBRARY »devi Cufdd- 
~SLEX34 
SLINK/MAP/FRIVILEGED?O LEX34eL Bi Cis 1 IPROGSUBS/— 


“LIBRARY 


*MCALL ALUNS»QTOWS »s NIRS *EXITSS 
»*MCALL. DIRERRs TOERR 
“ASCII /HELLO THERE / 
LEN = .~BUFF 
»EVEN 
» BLKW a § I70 status block for QI0 
ALUNS 49TTs0 . y¥ DFR to assign to TTO%» 
§ will modify for others 
QTOWs IO.WLE!TF.WET!ITF.RCUs491**TOSRs» <BUFF yLEN»y 40> 


+ENABLE LSB 


MOV #ALUN»RO y RO =: DPE for ALUNS 
MOV #QTOsR1 > Ri => DFR for QIOWws 
NIRS RO § Assistm LUN 

BCS ALFAIL § If ALUNS failed 

NIRS R1 § Tere messase at Tint 
BCC 14 3 If I/0 was aueued OK 


QNIRERR =ERROR ON QIOWS> 


CMFR #IS.SUC»TIOSE > Tid 1/0 succeed? 

REQ 2S s Yes 

IOERR #IOSK»<ERROR ON QIOWS: 

INC A. LUNU CRO) y Next terminal 

RR BRO 

from ALUN 

CMF TE. Tt, nsw > Tid it fail hecause of 
3 illessl unit #? 

BNE 3 3 Noy some other error 

EXITS > Yes. Must have rassed 
y the last terminal 

QIRERR <ERROR ON ALUN$:3 Other error 


»END START 
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Using the QIO Directive 


SOLUTION 


FROGRAM LEX34 


C FILE LEX34.FTN 


C Solution to Module 3» Lah Exercise 4 


C Task does 8 write breakthrough to all terminals. 


C Task-build with /FRIVILEGED?O aualifier 


C- 


3 


mo 


INTEGER TTUNITs USW 


DATA TTUNIT/O/ ! First outeut to TTO? 
INTEGER RABO G ren Gores 

BYTE SUCCODRC2) ' I/O success codes 
EQUIVALENCE CSUCCOD:sIOSE) ! First butes of IOSEK 
INTEGER TEDW ! Mnemonic for "Tllesal 


DATA TETIU/-99/ 
INTEGER TOFCOD 


' Tlevice or Unit" DSW code 
! I/0 function code 

! mnemonic 

! Write losdicel blocky 
' 
! 


Write breakthroughs 
and restore cursor 


DATA ITOFCOD/* 5017 


C 
C Load ersrameter list 


CALL GETADIRCPARAM(C1)» “HELLO THERE “> 


PARAM(C2) = 11 | Lensth of string 

FARAM(C3) = *40 ! Rlank for carr. ctrl. 

CALL ASNLUNC4s/’TT’ sTTUNITTs=ISW) !§ Assism LUN 4 to 
! TTrii 


IF (LSW.LT.O)? GOTO 900 
CALL WTQTOCIOFCODs 4919+ TOSB»FARAMs SW) 


TF (uSW.LT.O> GOTO 910 ! Titrective error 
TF (Succon¢c1>).NE.1> GOTO 920 ! I/0 error 
TTUNIYT = TYUNIT+1 

GOTO 10 


> Error from ASNLUN. If ASNLUN failed because of illegal 


00 


C 
f 
Co unit mumbersy must have rassed the last terminal. Exit. 
9 


IF (YiSW.EQ.TETOU) CALL EXIT 


TYPE 905+ 0SW ! Other error 
FORMAT (’ ERROR ON ASNLUN. [SW = ‘*I4) 
CALL EXIT 


TYPE 91S TTUNIT » DSW 

FORMAT (° DIRECTIVE ERROR ON QIO TO TT’ »02%°3 77 
1 ’ DSW = %9I4) 

CALL EXIT 

TYPE 925» TTUNIT »SUCCONC2> »SUCCON(C1> »s TOSBC2) 


FORMAT ¢(’ [70 ERROR ON QIO TO TT’ 029° 7 
1 ’ 70 STATUS BLOCK = ’9T4x’ »’9T4y% /’%9TS) 


CALL EXIT 
ENT 
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Using Directives for Intertask Communication 
TEST/EXERCISE 


Modify RECV1 and SEND1 to synchronize using Suspend and Resume 
directives instead of event flags. 


Modify RECV2 so that the display includes the name of the 


sending task in addition to the data. 


Write another sender task to send data to RECV2. Modify the 


receiver so that it receives data from your task only, not 
from SEND2. 


Modify SPAWN so that it spawns CLI..., MCR..., or ...DCL 
several different times and sends a different MCR or DCL 
command line each time. Display the exit status after each 
command executes. 


Write a parent task and an offspring task. Have the parent 
spawn the offspring. Have the offspring emit status to the 
parent every five seconds for 3@ seconds and then exit. Have 


the parent display each status value. Optional: Use an AST 
routine in the parent for synchronization. 
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Using Directives for Intertask Communication 


SOLUTION 


eTITLE SENDA 
eIQNENT /0O17 
*ENABL LC § Enable lower case 


FILE LEX41A.MAC 


Modified to use Susrend and Resume directives forssEX 
synchronization ¥9EX 


This task rromets at TI? for a line of text and sends 
the data to RECV1 for rrocessing,. Synchronization is 
handled through & common event flas. 


Assemble and task-huild instructions? 


=MACRO/LIST/OBRJECTSSEND1 LBC Lis lL IPFROGMACS/LI-%5EX 
~SBRARY sdevi CufdILex4i1a 
SLINK/MAF SEND» Lat Ci» LIFROGSUBS/LIBRARY 


Install and run instructions? RECVI must be installed 
and trum erior to running SEND. RECVLI continues to run 
until it receives 3 data rackets. 


*MCALL STIATSCvEXITSSsRSUMSC § Sustem macross sEX 
»*MCALL TYPEsINFUTsSRIRERR ¢§ Surelied macros 


FFER? .«BLKE 2&- + Tlata buffer to be sent 
+ENABL LSE § Enable local symbol 
§ blocks 
ART?: TYFE “TYPE A LINE OF TEXT,s 26 CHARACTERS OR LESS>= 
. * Tyre Fromet 
INFUT #BUFFER, #24. § Get text to send 
STAT$C RECVL» BUFFER § Send data to RECVI $¢F¢EX 
BCC 1% > Branch om directvie ok. 
TIRERR <UNABLE TO QUEUE DATA TO RECVi> ¢ Diseleas 
5 error message and exit 
: RSUM$C RECVI > Resume RECVI e5EX 
RCC 3 + Branch on directive oks5EX 
DIRERR <UNABLE TO RESUME RECVis 3 ¢9EX 
; EXITS s Exit ge EX 
+ENT START 
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Using Directives for Intertask Communication 


SOLUTION 
FROGRAM SENT 
FILE LEX41A.FTN 
Modified to use Susrend and Receive directives for !!EX 
synmehronization tIEX 


This task fromets at TI? for a line of text and sends 


the data to RECVI for srocessinsg. Synchronization is 
handled through @& common event fleas, 


Install and run instructions? LEX41B must be tlEX 
installed under the mame RECVI and rum erior to !tEX 
running LEX41A. RECYVI continues to rum until it tlEX 


receives 3 data rackets. 


BYTE BUFFER(26) 
TATA RTASK/S6RRECVI 7 ! Receiver task 
Promet for aineut 


TYPE X»‘TYPE A LINE OF TEXT» 26 CHARACTERS OR LESS’ 


READ (S10) BUFFER ! Read text 

FORMAT (246A) 

CALL SENT CRTASKyBRUFFERysI0SW) !§ Send data !!EX 
IF (I0SW .LT. 0) GOTO 900 ! Branch on dir error 


CALL RESUME CRTASKs I0SW) ! Resume RECV1I ilEX 
IF (INSW .LT. 0) GOTO 950 ! Branch om dir err! !EX 
CALL EXIT ' Exit 

Error code 

¢) TYPE X*s’UNABLE TO QUEUE DATA TO RECV1. DSW = ’,sInsw 
CALL EXIT 

0 TYFE X»’UNABLE TO RESUME RECV1. DSW = “’sINSW !ttlex 
CALL EXIT LlEX 
ENT 
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Using Directives for Intertask Communication 


SOLUTION 


»TITLE RECVI 
+IQUENT /01/7 
*+ENABRL LC > Enable lower case 


+ 


FILE LEX41B.MAC 


This task and receives data from any sender task 
(e.ade» SENDA). It erints the data on Trt. Then it 
waits for another date racket. It does this until it 
has received 3 messages and then exits. 


This task synchronizes with its sender through en 
event fleas, 


Assemble and task-huild instructions? 
“MACRO/LIST/OBJECTIRECVI LBEICLs LIPFROGMACS/LIE~ 5 5EX 
~SRARY sdevilufdIRECVL 99 EX 
LINK/MAF RECVUL,YL Ei Cis 1 IPROGSUBS/LIBRARY 


Install and run instructions: RECV1 must be installed 
and run before running SENIW. : 


“a> “> “> “SP S> “HD “SP GP “Sr GP SP > SP SP D> > GP SP “E> “SOP MP “ED 


»>MCALL RCOVOSCSEXITSESs SFENOSS$ Sustem macros ¥#EX 
*MCALL TYPE stIRERR > Surelied macros 


c> “a> 


Receive huffer 


uF 
* 


RRBUFFS «BLKW 
; 


+ENABL LSE 5 Enable local symbol 
§ blocks 
¥ 
START? MOV #39RS > Initiglize message 
5 counter 
AGAIN? SPNISS + Susrend self umtil?¢ EX 
5 MmMmessade arrives 


a 


RCC 3S § Branch on directive ok 
QIRERR <SUSFEND QIRECTIVE FAILED: §¢ Diselay ¢FEX 
> error message and exit 


5 We det here when resumed byw SENTING o#EX 
3$3 RCVIGC  »R BUFF ¢ Receive from anvone 
BCC wh: ) § Branch om directive ok 


DIRERR =RECEIVE DIRECTIVE FAILED IN “RECV1I"> 


¢ Dligrelay error Message 
5 and exit 
¢ Successful receirt 
3$ 3 TYPE =DATA RECEIVED BY "RECVI"S> § Diselay 
+ data 
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Modified to use Susrend and Resume for synchronization EX 
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Using Directives for Intertask Communication 


3 MESSAGES AND WILL NOW EXIT» 


SOLUTION 
TYFE #RBUFF+49#26, + Tisrlay data sent hy 
+ sender 
NEC RS ¢ Tecrement messade 
y counter 
BNE AGAIN + If mot wet Or set 
> another messade 
TYPE “"RECV1I" HAS RECEIVED 
EXITS ’ Exit after 3 messages 


*ENTD START 


FROGRAM RECV1 


FILE LEX41B.F TN 


synchronization 


and them exits. 


event flag. 


Install and rum instructions? 


LEX41A. 


OTF OI IAI AKI 


INTEGER RBUFF CLS) 


PIEX 


Modified to use Susrend and Receive directives 


This task receives data from LEX41A. It frints 
the date on TI?. Then it waits for another da 
racket. It does this until it has received 3 messases 


LEX41B must he 


installed under the mame RECVL and run before 


Receive huffer 


for !!IEX 
PlEX 


ta 


This task synchronizes with its sender throush an 


PlEX 
running! EX 
PItEX 


SEND1 !!EX 


sends data and resumes 


blEX 
“yIDSW! !EX 


! Receive from anyone 


C 
0 100 I=193 
10 CALL SUSFNI (CInsw) ! Susrend until 
C ! 
IF (inswWw .EQ. 2) GOTO 20 
TYFE xX» ’SUSFEND DIRECTIVE FAILED. NSW = 
GOTO 1000 
20 CALL RECEIV (»RBUFF» » INSW) 
IF (I0SW .EQ. 1) GOTO 30 
TYFE ¥» “RECEIVE DIRECTIVE FAILED IN “RECVI". 
1 OSW = “»tnsw 
GOTO 1000 
30 TYFE x» ‘DATA RECEIVED BY "RECVA"? ’ 
WRITE (S235) CRBUFF CK) sK=3915) 
35 FORMAT ¢¢% ‘913A2) 
100 CONTINUE 


TYPE X»/"RECVi" HAS RECEIVED 3 MESSAGES AND WILL. 


1 NOW EXIT’ 
1000 CALL EXIT 
ENT! 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE RECV2 
*IDENT /01/ 
*ENABL LOC > Enable lower case 


FILE LEX42.MAC 99 EX 


Modified to disrlay the sender task name in addition #sEX 
to the data ¥9EX 


This task receives data from another task. It erints 
the datas alons with @ headery om TI?. Then it waits 
for another data rackets continuing this until it has 
received 3 messases. 


This task synchronizes with its sender using RCSTS$. 

Because of this synchronizations the tasks can be run 

im ams order, with any relative feriorities. 

Assemble and task build instructions? 
=MACRO/LIST/OBJECTSRECV2S LEI Cl» TIFPROGMACS/LIB~-s¢ ¢EX 
“~SRARY sdevilufdadILEx42A 55EX 
“SLINK/MAF RECV2sLE3C1,s1 IF ROGSUBRS/LIBRARY 


Install and run instructions! RECV2 must he installed. 


*NCALL RCOSTS$CeRCVUNSCeEXITSS § System macros 


»*MCALL TYFE*sDIRERR 5 Surelied macros 
; : 
RBUFF $ »>BLKW 1S. y Receive buffer 
; 


TASKNM? «BLKW 3 


? 


a 


y 


CE oer wer o> 


START? MOV #39RS 
RECEIV? RCST$C  »RBUFF 


Buffer for task nmamessEX 
+ENABRL. LSE > Enable Local symbol 
5 blocks 


Set ur message counter 
Receive from anvone 
RCC oF Kranch on directive ok 
QIRERR <RECEIVE DIRECTIVE FAILED IN "RECV2"> 
’ [liselay error message 
> and exit 


“S> “> “a> 


Now get the racket 
Branch on directive ok 


RCVOSC »RBUFF 
BCC b$ 


Successful receirt or unstorred by another task. First 
check for unstorred after being storredsy in which case 
we have to receive the data 
$3 CMF $USWekIS.SET i Were we storred due to 
y mo data 
RENE &$ + If noty we have a data 
> Facket 
; 
; 
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Using Directives for Intertask Communication 


SOLUTION 


QIRERR <RECEIVE DIR FAILED AFTER “"RECV2*" UNSTOPPED> 
> tlisrlay error message 


y and exit 
y Convert task name from Radix-S0 to ASCII 
6%3 MOV #TASKNMs RO ¢ Address for converteds Fs EX 
> name ¥¥EX 
MOV RBUFF sR1 > Word to be converteds sEX 
CALL $CSTA § Convert it 99 EX 
MOV REUFF +2 °R1 § Next word to he ¥9EX 
+ converted 9 9 EX 
CALL $CSTA § Convert it ¥¥EX 
TYFE <DATA RECEIVED BY “RECV2"t> § Diselay text 
TYFE #TASKNM 2 #6 + Disrelay task name 99EX 
TYFE #RBUFF+4*#26, § and data sent 
§ Had to change SOB ~ too far for branch! 99 EX 
NEC RS >; Llecrement message 99EX 
> counter 9 9EX 
REQ DONE 3 Branch if done 3 9EX 
AMP RECETYV + Receive asain if motsxsEX 
> vet 3 messages s9EX 
DONE 3 TYFE <"RECV2" HAS RECEIVED 3 MESSAGES: 
TYFE “AND WILL NOW EXIT? § Tyre exit message 
EXIT$S 7 Exit 
~ENTD START 
FROGRAM RECV2 
FILE LEX42.FTN ttEX 


AIA GAHGI i iIninraenraianran 


Modified to disrelay the sender task name im addition !!EX 
to the data IlEX 


This task receives data from another task (Ce... SEND2), 
It wrints the datay salons with ea headers on TI?. Then 


“it waits for another date rackets continuing this 


until it has received 3 messages. 

This task synchronizes with its sender using RCST. 
BRecause of this symchronizations the tasks can he run 
in any ordery with amy relative rriorities. 


Install and rum instructions! LEX42 must be installed! !EX 
under the name RECV2,. PIEX 
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Using Directives for Intertask Communication 


SOLUTION 
Cc 
INTEGER RBUFF (15) 
INTEGER [1SWy» ISSET 
INTEGER TASKNM(3) ! 
C | 
LATA ISSET/2/ i 
C 
C 
0 100» I=1y93 
CALL RCST(»RBUFF ytSW) ! 
IF (USW.GE.0) GOTO 5O 
Ture *» RECEIVE DIRECTIVE 
1 DSW = ’»fSw ! 
GOTO 1000 ! 
C 


C Successful receirt or unstorred 
C check for unstorred after heing 
C we have to receive the dete 

0 IF (USW.NE.ISSET) GOTO 606 


5 
C 
C 
C 
C 


Storred due to no date? 


CALL. 
IF (QSW.EQ.1) GOTO 460 
TYFE Xe “RECEIVE MIRECTIVE 
LUNSTOFPPED. DSW = “snSW 
GOTO 1000 

C Diselay data 


RECEIV( sRBUFF » »DSW) 


Receive buffer 


form! lEX 
11 EX 


Ruffer for ASCII 
of task name 
SW code mnemonic 


Receive from anyone 


FAILED IN 
Nisrelay error 
and exit 


*"RECV2*", 
message 


by another task. First 
storredys in which case 


! storred due 
! 6to mo data? If not 
! (NE), we have ~@ 

! data racket 


Were we 


! Now det the racket 


FAILED AFTER "RECV2" 
{ fliselaws error 
! messade and exit 


60 CALL RSOASC (6»RBUFF » TASKNM) 1lEX 
TYFE 7S» TASKNM: C(RBUFF (J) »J=3%15) PlEX 

73 FORMAT (’ DATA RECEIVED BY “RECV2"3°/1X*3 !!EX 
LA2Z91Xr13A2) 1tEX 


100 CONTINUE 
C Have received 3 messages 
TYFE xy’ "RECVS" 


1 NOW EXIT’ 
1000 CALL EXIT ! 
ENT! 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE LEX43A 
eIQENT /01/7 


*ENABL. LC 5 Enable lower case 
FILE LEX43A.MAC d5EX 
A second sender to RECV2 
This task frromets at TI? a line of text and sends the 
data to task RECV2 for Frocessing. Synchronization is 
handled throush RECV2’s stor bit. RECVU2 will continue 


to rum until it receives 3 messades. RECV2 and LEX43A 
may he run in ans order. 


Assemble and task build instructions? 


MACRO/LIST LE¢ C1» 1 IPROGMACS/LIBRARY sdevi CufdILex43a 
LINK/MAP LEX43AxLBiCiy 1 IPROGSUBS/LIBRARY 


Install and rum instructions! LEX43B must be installed 
under the mame RECV2 


-MCALL: SDATS#CeUSTFSCyEXIT$S # Sustem mMaCroS 
*MCALL TYPES INFUT*SDIRERR ¢ Surerelied macros 


r 
BUFFER? .BLKE 26. » Send buffer 


*ENABL LSB Enable local sumbol 


; 
> blocks 


ART?33 TYFE “TYPE A LINE OF TEXT: 24 CHARACTERS OR LESS= 
¢ Daselay eromet 
INFUT #BUF FER: €26,. y Issue read 
SQHAT#¢C RECV2»RUFFER + Queue data to RECV2 
RCC 1% > Branch om directive ok 
QIRERR <UNABLE TO QUEUE DATA TO “RECV2": 
+ Diselay error message 
> and exit 
H USTFSC RECV2 § Unstor RECV2 
BCC 2 § Branch on directive ok. 
CMF $0NSWy#tTE. ITs § Isn’t he storred? 
REQ 2 § That’s oksy he’ll rick 
5 ur data when he 
> executes RCISS 
CMF $0SWs #IE.ACT s Is he not active? 
BEQ 2S § If mots he’ll Fick wr 
+ data when activated 
QNIRERR =<UNABLE TO UNSTOF “RECV2"> § Any other 
§ error is had 
: EXITS § Exit 


ENT START 
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Using Directives for Intertask Communication 


SOLUTION 


FROGRAM LEX43A 
FILE LEX43A.F TN tiEX 
A second sender task to send data to RECV2 !IEX 


This task rromets at TI? for a line of text and sends 
the data to RECV2 for rrocessing. The receiver will 
continue to run unmtil it receives 3 messages, 
Synchronization is handled throush RECV2’s stor bit. 
RECV2 and LEX43A may be run in anys order. 


Install and run instructions’ LEX43B must be PiEX 
imstalled under the name RECV2, Plex 
BYTE BUFFERC26) | Send buffer 


INTEGER OSwW 

REAL RECV2 

DATA RECV2/SRRECV2/ 1 Receiving task mame 
INTEGER IEITS*sIEACT ! Error mnemonics 
DATA IELTS» ITEACT/-89-7/ 


TYPE Xv¥’TYFE A LINE OF TEXTs 26 CHARACTERS OR LESS“ 
READ (S95) BUFFER 

FORMAT (26A1) 

CALL SENDICRECV2,BUFFER:rs0SW) ! Send data to RECV2 
IF (DSW.EQ.1) GOTO 10 

TYFE X» “UNABLE TO QUEUE DATA TO "RECV2", DSW = ” 

1» 0SW 

CALL USTFCRECV2 »tNSW) 
IF (QSW.EQ.1) GOTO 20 
IF (NSW.EQ.-TEITS) GOTO 


! Unstor RECV2 

|! Branch om directive ok 
20 ! Isn’t he storred? 

1 0 6That’s oksy he’1ll fick 

! our data when he 

! executes RCONSS 
20 !' Is he not active? If 

! nots he’ll Fick wr 

! data when activated 
TYFE xe ’UNABLE TO UNSTOF “RECV2",. DSW = “nsw 

! Any other error is had 

CALL EXIT ! Exit 
ENT 


IF (QSW.EQ,.IEACT) GOTO 
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Using Directives for Intertask Communication 


SOLUTION 


*TITLE RECV2 
eIDENT /017— 
*ENABL LE > Enable lower case 


FILE LEX438.MAC 9 9EX 


Modified to recieve only from LEX43A  $33EX 
NOTE: THE TASK WILL EXIT WITH A NO TATA QUEVED ERRORS ¢EX 


IF SEND2 SENDS DATA AND UNSTOFS THE TASK. MORE ¥¥EX 
COMPLICATED CODING IS NEEDED TO HAVE THIS TASK ¥9EX 
UISTINGUISH BETWEEN TASKS WHICH SENT DATA AND UNSTOP Ss FEX 
IT ¥9 EX 


This task receives data from another task. It rrints 
the datas salons with a headery on TI?. Then it waits 
for amother data rackets continuing this until it has 
received 3 messases-. 


This task synchronizes with its sender using RCSTS. 


Because of this synchronizations the tasks can be run 
in ans orders with anys relative rriorities. 


Assemble and task-build instructions? 
=MACRO/SLIST/QBJECTIRECV2 LES Cis LIFPROGMACS/ILIB-§ ¢EX 
-~SRARY sy devi CufdILEx43k 9 9EX 
SLINK/MAF RECV2sLBit ll, 1 IFROGSUBS/LIBRARY 


Install and rum instructions: RECV2 (LEX43B) must bessEXx 
installed under the mame RECV2. ge EX 


»*MCALL RCSTE#CeRCVISCYEXIT#SS § Sustem macros 
eMCALL TYFE*STDIRERR y Surelied macros 


Receive buffer 


“o> 


*+ENABL LSE 5 Enable local symbol blocks 


y Set ur messaese counter 
§ Receive from Just #5 EX 
§ LEX43A 99 EX 
RCC ot § Kranch on directive ok 
NIRERR «RECEIVE DIRECTIVE FAILED IN “RECV2"* 
Diselay error message 


; 
§ and exit 
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Using Directives for Intertask Communication 


SOLUTION 
Successful receirt or unstorred 
check for unstorred after being 
we have to receive the data 
$3 CMF $0SWs €IS.SET 5 
; 
ENE &$ ; 
5 
RCVEEC LEX43AsRBUFF 5 
BCC bs r 
NIRERR «RECEIVE DIR FAILE 
5 
5 
$3 TYPE “DATA RECEIVED BY 
TYPE #R BUFF +49 #25. 
SOR RS»sRECEIV ; 
3 
3 
; 
QEC RS 
BEQ TONE 
JIMF RECEIYV 
ONE $ TYPE “"RECV2" HAS RECET 
EXIT$S a 
»END START 


FROGRAM RECV2 


FILE LEX43R.FTN 


Modified to receive only from LEX43A 
TASK WILL 
SEND2 SENDS DATA. 
TO CHECK FOR SEND? SENDTING DATA ANI! 


NOTE? 


This task. 
It rrints 


it waits for another data rackets 


receives data from 
the datay 


EXIT WITH A NO DATA QUEVED 
MORE COMPLICAT 


another task 
alongs with @ headers 


by another task. First 
Storred:s in which case 
Were we storred due to 
no data 
If moty 
racket 
Now get the racket 
Branch om directive ok 
Tl AFTER “RECV2" 
Lliselay error message 
and exit , 
*"RECV2" ft 


we have a data 


y Disrley 

s text and 

s data sent 

Decrement message 
counter. Receive edain 
if haven’t received 3 
vet 


9 9EX 

#5EX 

99EX 
VET 3 MESSAGES ANT 

> Tyre exit 

; Mmessadte 
Exit 
EX 

1 tEX 

ERROR IF!!SEX 

En COnE IS NEEDENR 1lEX 


UNSTOFFING RECV2! !EX 


C@s.de 
om TI?. 
continuing this 


SENII2),. 
Then 


until it has received 3 messases.- 


This 


task synchronizes with its sender 


Because of this synmchronizationy 


im 


Install and rum 


installed 


any ordery 


with any relative 


instructions? 
under the mame RECV2, 
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LEX43EK must he 


using RCST. 
the tasks can he 
Priorities. 


rors 


1 IEX 
1 !EX 


UNSTOPPED: 


WILL NOW EXIT> 


Using Directives for Intertask Communication © 


SOLUTION 
C 
INTEGER RBUFF (15) ! Receive huffer 
INTEGER U1SWy ISSET 
REAL TASKNM ! Task mame array !!IEX 
LATA TASKNM /6RLEX43A/  ! Task name in Radix-SO!!lex 
DNATA ISSET/2/ ! USW code mnemonic 
C 
C 
000 100» T=193 
CALL RCSTTASKNM*RBUFF sDISW) ! Receive from LEX43A 
IF (0SW.GE.0) GOTO So 
Tyre Ky “RECEIVE DIRECTIVE FAILED IN “RECV2", 
1 DSW = “ssw ! DPiselay error message 
GOTO 1000 ! and exit 
C i 
C Successful receirt or unstorred by another task. First 
C eheck for unstorred after being storreds in which case 
C we have to receive the data 
ra @) IF (USW.NE.-ISSET) GOTO 60 ! Were we storred due 
C ! 6 6te mo data? If mot 
C ! (NE)» we have ~a 
j 


or 


Storred due to mo data} 


CALL RECEIVCTASKNM»REUFF » s DSW) |! 


C 
IF (NSW.EQ.1) GOTO 60 
TYFE X»‘RECEIVE DIRECTIVE 
TUNSTOFFED. OSW = ’»TSW 
GOTO 1000 
C iselay data 
60 TYPE 75» (RBUFF CJ)» J=3915) 
Zo 4 FORMAT ¢’ TIATA RECEIVED BY 
100 CONTINUE 


C Have received 3 messages 
TYFE Xy’*RECV2" 
1 NOW EXIT’ 

CALL EXIT ! 


1000 
END 
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HAS RECEIVER 


data racket 


Now set the !!1EX 


! pscket 
FAILED AFTER "RECV2" 


! fTliselay error 
! nessade and exit 


"RECV2"3°/1X»13A2) 


3 MESSAGES AND WILL 


Exit 


eR 
MWe SMW GNA Cd Ol fh 


os 
J 


13 


= 
> 


15 


me 
NEO 


he 
OCG 


ioe 
> 


aoe) 
ax 
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Sb “S> “GP Sd “GP Srp Sd We SP GP E> Wr 


CME: 
LEN 
CMD2 3 
LEN2 = . 
CMDS 3 
LENS = + 


SMES: 
LSMES 


IOSE: 
EXSTAT$ 


CMITERL 


SPAWNS 
BUFF 


a 


FMT: 


STARTS 


This rrogram srawns MCR...» 
conmand liness 
disrlays each command’s exit 


5 Format 


SOLUTION 


*TITLE SPAWN 
eINENT /02/7 


*ENABL LC 


File LEX44.MAC 


4 
, 


Enable lower case 


rasses it a series of #FEX 
waits for each to exits and 99 EX 
99EX 


status. 


Assemble and task-build instructions! 


MACRO/LIST LBE¢ Cis 1IPROGMACS/LIBRARY »devi CufdILex44 
LINK/MAF LEX44eL Bi fis 1 IFROGSUBS/LIBRARY 


*MCALL SPWNS*SEXITSSsWTSESC sQLOWES »QTOWSC 


*MCALL DITRERR» TOERR 
*NLIST BEX 


sASCII "PIF &.MAC/LI" 
=,-CMD1 

“ASCII /ACT/ 

“~CMN2 

sASCII /TIM/ 

~CMIS 


a 
y 
a 
g 
a 
? 


System macros 
Surrelied macros 
Inhibit listings of 
binary extensions 


Command line 
Lenath of command 


LASCII /SPAWN IS STARTING ANI! WILL SPAWN/ 


*ASCII / MCR COMMANIIS/ 
=.—SMES 


+EVEN 
»BLRKW 2 
oBLKW 8. 


»WORT CMD1»sLENI 
»WORD CMDI2sLEN2 
»WORD CMTS y LENS 
«WORD 0 


“a 
¥ 
a 
y 


Startup message 
Length of message 
I/O status block 
Exit status block 


Table indexing 
MCR commands 


End of table 


SFUNS MCReee ver xer xd ey xEXSTAT 


» BLAKE 80. 
Strirms3 


a 
¥ 


*ASCIT /ANSFAWN REPORTING? COMMAND / 
*ASCIZ / COMPLETED. EXIT STATUS WAS Z0.4N/ 


QIOWSC IO.WVEsSrl»sTOSBy » = SMES sL SMES» 40> 


*EVEN 

BCS ERRID 
TSTE IOSB 

BL.T ERRIT 
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a 
, 


a 
y 
a 
9 


Branch om dir error 
Check for I/O error 


Rranch om I/O error 


<c> > We “E> ‘S> “ED 
> “> “> “Grp “> “ED 


<> “a> 
s> S> 


mm MMrAmmm 
mM > KK KK KK 


<Sc> “> “E> “a> 
“cr S> “Gp «> 
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GETCME:S 


DONE 3 


'§y Error 


ERRiD: 
ERRiI: 
ERR2% 
ERR3? 
ERR4L: 
ERR4T? 


MOV 


MOV 


MOV 
BEQ 
MOV 
LIRS 
BCS 
WTSESC 
BCS 
RIC 


MOV 
MOV 
MOV 
CALL 
QIOWSS 


BCS 
TSTEB 
BLT 
BR 
EXIT$S 


SOLUTION 


#CMDTBL 
#SFAWN» 


(R3)+9S.PWCACR4) 


DONE 


(R3d+»S-FWCL OR4) 


R4 
ERR2 
1 
ERRS 


9RS 
R4 


#1774002 EXSTAT 


#BUFF oR 
$F MTyR1 


 ¥EXSTAT 


$E0MSG 


0 


yR2 


wr “> ‘cr “E> “EP “EP “EP “EP “EP SP “CP CP “BP E> GD 


R3 => command table #FEX 
R4 => SFAWN DFE #9 EX 
Set command address #5 EX 
If 0» end of list > ¥EX 
Command lensth 9 
Seawn MOR. +> 59 EX 
Branch on dir error 
Wait for task to exit 
Rranch om dir error 
Clear hish order byte 

of exit status 

Set ur for SEDMSG 


Edit status message 


#IO WVBR y #528157 #ITOSKs »<#RUFF yR1 » F402 


ERR4D 
IOSE 
ERR4I 
GETCMD 


handling code - 


~DIRERR 


LTOERR 
NIRERR 
NIRERKR 
DIRERR 
TOERR 
ENT 


“ERROR 
#IOSEy= 
ERROR 
ERROR 
“ERROR 
#¥TOSEs = 
START 


3 


a 


“> “a> “E> “Sr “Er 


s DTisrelay 


llisrelay exit status 
Branch om dir error 
Check for I/0 error 
Rranch om I/0 error 


Get next command 99 EX 
Exit 59 EX 
error message and exit 


WRITING STARTUP MESSAGE> 

ERROR WRITING STARTUF TEXT> 
SFAWNING MCR> 9 9EX 
WAITING FOR EVENT FLAG? 


WRITING EXIT STATUS> 3 
ERROR WRITING EXIT STATUS? 9 
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9 
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SOLUTION 
FROGRAM SFWN 
C 
C File LEX44.FTN. 
C 
C This rrogram sreawns »«-+-DCh» rasses it a series of !IEX 
C command Lines» waits for each to exits and PlEX 
C displays each command’s exit status. PlEX 
C 
C Date 
INTEGER EXSTAT(8) »FPLIST(4) e0SW 
BYTE BUFF C80) 
C Commands to be srawned? PIEX 
C o a 
C NIK *.MAC 7 ; 1lEX 
C SHOW TASKS/ACTIVE PlEX 
C SHOW TIME 1tEX 
C 
REAL CMINCS» 3) PIEX 
DATA CMDO/‘DIR 7 9°k.MA’s °C’ x O » O » 
1 “SHOW’ » “ TAS’ » “KS/A’ s “CTIV’ +E» 
2 ‘SHOW’ s “ TIM’ + ’E’ x 0 + Of PlEX 
INTEGER LEN(3) 
- TATA LEN/9»917+9/ 
C 
REAL Fe. 
ATA LICL/6Re « ICL 
c 
C Code bs 
WRITE (5915) ! Write message 
bes FORMAT (’ SFAWN IS STARTING AND WILL SPAWN “» 
1 “DCL COMMANI'S ‘> ftEX 
LO 30rT=193 
CALL SFAWNCDCL s x91»sr2EXSTATs »CMIIC 1» TI) »LENCI) 
1 »»sDSW) “TlEX 
! Srawn DCL 
IF (SW.LT.O) GOTO 900 ! Branch on dir error 
CALL WAITFR(1sIISW) | ! Wait for task to exit 
“IF (OQSW.LT.O) GOTO 910 ! Branch on dir error 
WRITE (S225) EXSTAT(1).AND.“377 |! Disrlay low 
! byte of exit status 
20 FORMAT (’ SFAWN REFORTING: COMMAND COMPLETE. ‘+ 
1 ’ EXIT STATUS WAS ‘’+I19’.%) : 
30 CONTINUE 
CALL EXIT ! Exit 
C Error handling code Bs 
900 TYFE X»’ERROR SFAWNING DCL. DSW = % »tSwW 
: GOTO 1000 a4 
910 TYPE Xs “ERROR WAITING FOR EVENT ene iSsWw = “’ »nhSw 
1000 CALL EXIT 


ENT! 
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a> “> “E> Srp > WP Ge E> > 


Using Directives. for Intertask Communication 


SOLUTION 


*TITLE LEX4S5A 
eIQENT /017 


*ENABL LC § Enable lower case 
+ 
Fille LEX4SA.MAC. 
Solution to Module 4» Lab Exercise 5 - Fart Ay Farent 
task. 


Task srawns LEX4SB and rerorts status of that task. 
Synchronization is through an AST routine. 


/GLOBL $EDMSG 
sMCALL CLEF Ss WTSE$C» SFUNSC yEXIT$S» QLOWS DIRS 
»MCALL SETFSCyCNCT$C»ASTX$S» QIOWSC » ABRTSC 
.MCALL = T[NTRERR | 


b 

QIrIoO?: QTOWS TO.WVBySy2es99ec0UTBUF 20r40> + Set msg 
§. lensth later 

CLEF 3 CLEFS 1 

§ $E0MSG arsument block? 

EUIMARG: .WORD OF EMST § => OFEMST or OFEXIT 

STATUS? «© BLKW 8. $s Offsrring status block 

9 

MSG3 ~ASCIZ /OFFSFRING “I. STATUS = ZDZN/ 

OFEMST? .ASCIZ /EMITTEN STATUS/ | 

QOFEXIT? .ASCIZ /EXITED/ 

QUTBUF? .BLKE 200.6 


+EVEN 

: 
*+ENABLE LSE 

START? MOV #QTOrR4 ¢ R4 => QTOWS DRE 
NIRS #CLEF ; .§ CLEF 1» used to synch 

§ With AST routine 

BCS ERR. 
SFWUNEC LEX45 By yyox2sASTRINeSTATUS § Srawn LEX45KB 
RCS ERR? | 

1%3 WISESC 1 ¢ Wait until AST occurs 

a3 y and AST routine sets 
y+ flas 
BCS ERRS 
MOV #QOUTBUF + RO | y RO => $EDIMSG outrut 
MOV #MSGyR1 ¢ Ri => $E0MNSG inreut 
MOV #EDMARGsR2 > R2 => $EDNMNSG arguments 
MOVE STATUS »RS y Extend sigm on status 
MOV >. RSvSTATUS ¥ byutey also keer in RS 
EMI 2 y Minus values mean EMST 
» # MOV #OFEXIT*sEDMARG ¢ >= 0 means EXIT 

23 CALL. $E0DMSG 

MOV R1isQ.ITOPL42°¢R4) §¢ Load message length 


, 
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NIRS 
BCS 
TST 
BGE 


“TIRS 


ERR1 3 
ERR23 
ERR3? 
ERR43 
ERRS? 
§ AST ro 
; 

¥ Value) 
; 
A 


STRTNS 


RCS 
BR 
EXIT$S 


NIRERR 
QIRERR 
NIRERR 
NIRERR 
NIRERR 


utines 


SETFSC 
RCS 
CMF 


REQ 
TST 


~BGE 


CNCTSC 
BCS | 
TST 


 ASTX$S 


OVRNMS ¢ 


OVRNML = 


a 


9 


OVRRUN § 


; 

ERRG? 
ERR7 3 
ERRS 3 


“ASCIT 
“ASCII 


¢ ~OVRNMS 


«EVEN 


QTOWsC 
ABRT $C 
BCS 

EXIT$S 


DNIRERR 
NIRERR 
DIRERR 
*ENT 


SOLUTION 
R4 > QIOWS to TI? 
ERR4 
RS ¢ Did offsrring exit? 
3S § Yes 
#CLEF ¥ No. Clear EF 1 asain 
ERRS 
1% Wait 


; 
> Once offsrring exitsy 
§ $0 should rarent = - 


ERROR ON INITIAL CLEFS> 
ERROR SFAWNING LEX45B> 
ERROR ON WTSE$C> 

<ERROR ON QIOWS$> 

ERROR ON CLEFS> 


entered when offsrring emits status 


(negative status value) or exits Crositive status 


1 § Awaken main code 
ERRS6 
$NSWs#tIS.SeET 5 If sets main code is 
5 mot ready vet 
OVRRUN i We’ve heen overrun 
STATUS. s Has offsrring exited? 
44 > If sor don’t try to 
; reconnect 
LEX4SB» sASTRTNySTATUS 
ERR? oF 
(SP )+ § Clean ur stack from AST 
y Let main code run 


If a new status comes im before we’re done with the old 
ones something is wroms. Stor everything. 


/STATUS RECEIVED BEFORE REALY. 7 
/ ABORTING BOTH TASKS./ 


TO.WVBe S239 999 <OVRNMS sy OVRNML + 40> 
LEX45B + Abort offsrring 
ERRS 

y Exit this task 
<ERROR FROM SETF# IN AST ROUTINE? 
<ERROR CONNECTING TO OFFSFRING? 
<ERROR ABORTING OFFSPRING? 
START 


23 
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Using Directives for Intertask Communication 


SOLUTION 


FROGRAM LEX45A 
~ File LEX45A.FTN 


C Solution to Module 4» Lab Exercise S ~- Fart Ay rarent 
task. 


fn" 
ae 


Task srawns LEX4SB and rerorts status of that task. 
Negative status values are used when emitting statusy 
rositive values when exiting. 


Synchronization is through an event flags. 


eennaaan 


REAL LEX45E 
DATA LEX4SB/6RLEX45B/ 
INTEGER STATUS(8) s DSW 


C Srawn LEX45B% . : 
CALL SFAWN CLEX4SBy¢y¢lysSTATUSs 999% »TSW) 
IF (nSW.LT.0)2 GOTO 900 
10 CALL WAITFR(1+/0SW) ! Wait until EXIT or 
C ! EMIT STATUS occurs 
IF (“SW.LT.O> GOTO 910 
IF (STATUSC1).GE.0) GOTO 20 ! Offserring exited 


C ! Emitted status? 
TYPE 15*STATUS(1).0R.°177400 ! Dlisrelay statuses 

C ! nes sigm extended 

Cc ! to det nes value 

15 FORMAT (’ OFFSFRING EMITTED STATUS. STATUS = “’y 
1214/7) 


CALI CNCT (LEX4SB9i»9*STATUS» »TiSW) ! Reconnect 
IF (niSW.LT.0) GOTO 320 


GOTO 10 ! Wait for next status 
C; 
C Offsrring exited? 
Cc 
20 TYFE 25 STATUS( 1). ANI. "377 
2 FORMAT (’ OFFSPRING EXITED. STATUS = ’»I4/) 
CALL EXIT ! Once offsering exits,» 
C ! $0 should rarent 
C 
900 TYFE xk» ‘ERROR SFAWNING LEX45B. [SW = /’shsw 
' GOTO 1000 
910 TYFE X*’ERROR ON WAITFR. DSW = ’» DSW 
GOTO 1000 
920 TYPE X»’ERROR CONNECTING TO OFFSPRING. DSW = ’y 
insw 7.7 a 
1000 CALL EXIT 
ENII 
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SOLUTION 


*TITLE LEX458 
eIQENT /0O1/ 
eENABL LC 


+ 


File LEX4S5&.MAC 


offsrring task 


> “Sh ‘cp Sh “> SP “> “hm TP SP “Se ED SSP SEP WP *E> “OP 


Solution to Module 4, 


This task is spawned bu LEX45A. 
status every 5 secondss then exits after 30 seconds 
(6 emits» then an exitd. 


tried S seconds later. 
this task to exit with an error messase. 


i Enable lower case 


Exercise S - Fart By 


It emits 8 nesative 


If an emit status fails because this task was mot. 
connected to the rarents another emit status will he 
Two comsecutive failures cause 


This tesk must he instelled under task mame LEX45B, 


*MCALL EMST$S sQTOWSC sWTSESC »MRKTSC eEXI THES 


*MCALL TITRERR 


NCONCT? <.ASCIT /LEX4SB NOT CONNECTED TO ANY PARENT/ 


» BYTE Loele 


“ASCII /WILL 
NCNCTL = .~NCNCT 

e EVEN 
; 
START? CLR RO 

CLR Ri 

MOV #tS9R3 
EMST? DEC RZ 

EMI EXIT 

MRKT$C Ly S92 

BCS ERRI 

NEC RO 

EMST$S »RO 

RCS 1% 

CLR RA 

BR WAIT 
L$? CMF $USWy#IE.ITS 


BNE ERR2 


TRY AGAIN 


<> > “> Sb Sh SP “Str D> > ‘Sh SCD 


‘Cr SP AP “EP “EP “E> “GD SP EP 


IN S&S SECONDS/ 


RO = exit status 

Ri = O means last 
attemet to emit status 
suceeded, RO < O means 
it failed because we 
were mot cannected 

R3 = number of emits 
yet to he issued 

Set timer Casaind? 

Noy Just exit . 

Set timer for 3 seconds 


Use status < 0 when 
emitting 

Emit to rarent 

Failed. Why? 

Note success 

Wait for S secs to rass 
Failed because not 
cornmected? 

Any other reasons auit 


Using Directives for Intertask Communication 


WATT: 


EXIT? 


“Ss> “> “= 


ERR ¢ 
ERR23 
ERR 33 
ERR4¢ 


i 


Solution 
offsrring task. 


This task. 


Tat 
BMI 
DEC 


QTOWSC 
BCS 


WISESC 
BCS 

BR 
EXIT$S 


QIRERR 
DNIRERR 
DNIRERR 
UIRERR 
eEND 


This task is 
status every 
(6 emitsy then an exit). 


SOLUTION 


Ri 
ERR2 
R1 


§ Failed last time too? 

§ Them sive up 

’ Else note we failed this 
y time 

, And announce the 

5 Froblem? 


IO.WVBySx29 99 92NCNCT »NCNCTL » 40> 


ERRS 
1 

ERR4 
EMST 


Yirective errors 


ERROR 
ERROR 
ERROR 
“ERROR 
START 


FROGRAM LEX458 
File LEX45B.FTN 


to Module 4y» 


And try asain in S secs 


3 
s Wait for 3 secs to rass 


5 Exit (with success) 


ON MRKTSC> 
EMITTING TO FARENT> 
ON QIOWSC> 
ON WTSESC> 


Lab Exercise 5 ~ Part By 


seawned by LEX4SA. It emits a@ nesative 
3 seconds,sy then exits after 30 seconds 


If an emit status fails because this task was not 
commected to the rarents another emit status will be 
tried 


5 seconds later. Two consecutive failures cause 


this task to exit with an error message. 


must be installed under task mame LEX45B. 
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SOLUTION 


INTEGER [iSWe TEITS 
ATA TELTS/-8/ 
LOGICALAL ERLAST 


Error mnemonic 

Flas if last EMST 
failed because we were 
not connected 


QATA ERLAST/.FALSE./ 


N10 SO»sT=196 ! Issue & EMSTs 
CALL MARK (1*sS%s2sTSwW> ! Set timer for S seconds 
IF (OSW.LT.O> GOTO 900 
CALL EMST¢(»¢(-I) »tSwW) i Emit to rarent 
IF (OSW.LT.O) GOTO 20 ! Failed, Why? 
ERLAST = FALSE. ! Note success 
GOTO 390 ! Wait for S secs to rass 
IF (OQSW.NE.TEITS) GOTO 910 ! Failed for reason 
! v6©other then not 
! 6 6connmected 
Failed last time too? 
Then sive ur, 
Else note we failed 


IF (CERLAST) GOTO 910 ! 
I 
! 
! this time 
! 
! 


ERLAST = .TRUE. 


And anmmounce the 
rroblem? 
TYFE 25 
FORMAT (’LEX45B NOT CONNECTED TO ANY PARENT’ / 
1 ‘WILL TRY AGAIN IN 3S SECONDS’) 


! And try asain in S secs 
CALL WAITFR(1 TSW) ! Wait for 3 secs to rass 
IF (OSW.LT.0) GOTO 920 
CONTINUE 
CALL EXIT 1 Exit (with success) 


CGC Directive errors 


C 
700 


P10 


920 
1000 


TYFE X»’ERROR ON MRKT. DSW = “TSW 

GOTO 1000 

TYPE ¥»’ERROR EMITTING TO PARENT. [SW = “’» DSW 
GOTO 1000 

TYPE X»’ERROR ON WAITFR. DSW = “» DSW 

CALL EXIT 

END 
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Memory Management Concepts 


TEST /EXERCISE 


Write 'M' if the statement 
it applies to unmapped 
both. 


a. Physical addresses 
16-bit addressing. 


b. Physical addresses 
18-bit addressing. 


Cc. Program relocation 


applies to mapped systems, '‘'U' if 
systems, or 'M,U' if it applies to 


up to 32K words accessible with 
up to 128K words accessible with 


possible without having to program 


or task-build again. 


d. Detection of memory protection violations. 


e. Program executes only at physical addresses that match 
- the virtual addresses created by the task builder. 


f. Virtual address limit of 32K words. 


——_———- 


Fill in the headings and the missing values in Figure 1. 
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@9 


ADDRESSES 


160000 


100000 


60000 


20000 


MEMORY 


COMMON 


8K WORDS 


Figure 1 


# VALUES MEMORY 


013422 
000000 
000000 
000000 
012736 


we COMMON 


Virtual Addresses, APRS and Physical Addresses 
in a Mapped System 


ADDRESSES 


01253600 


TK-7751 


— 3$81I0dsX4/1S31 


s}d90u0D Juowsebeuew Aiowsey 


Memory Management Concepts 


SOLUTION 


Write 'M' if the statement 
it applies to unmapped 
both. 


U a. Physical addresses 
16-bit addressing. 
words is the limit 
Mapped system.) 


M b. Physical addresses 
- 18-bit addressing. 


M c. Program relocation 


applies to mapped systems, '‘'U' if 
systems, or 'M,U' if it applies to. 


up to 32K words accessible with 
(M is also acceptable since 32K 
of 16-bit addressing even on a 


up to 128K words accessible with 


possible without having to program 


or task-build again. 


-M_d. Detection of memory protection violations. 


Ue. Program executes only at physical addresses that match 
. the virtual addresses created by the task builder. 


M,U f£. Virtual address limit of 32K words. 


Fill in the headings and the missing values in Figure l. 
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z9 


VIRTUAL 


ADDRESSES 


160000 
140000 
120000 
100000 
60000 
40000 


20000 


VIRTUAL 
MEMORY 


COMMON 


8K WORDS 


TASK 


7K WORDS 


Figure ] 


Virtual Addresses, 


APRs and Physical Addresses 
in a Mapped System 


PHYSICAL 


ADDRESSES 


01342200 


01253600 


TK-7750 


NOILN1IOS 
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Overlaying Techniques 


TEST/EXERCISE 


The following is an output 


MAIN CALLING SUBROUTINE 
G CALLING SUBROUTINE Gl 
Gl RUNNING ; | 
MAIN CALLING SUBROUTINE 
Hl RUNNING 

MAIN CALLING SUBROUTINE 
H CALLING SUBROUTINE Hl 
Hl RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 

MAIN EXITING 


display from a task. 


G 


Hl 


The calling sequence parallels the output display. 


Is 


Draw an overlay tree diagram or a memory allocation diagram 
for a possible overlay structure for the task. 


Write the modules MAIN, G, Gl, H, Hl, and _ H2. Assemble or 


compile each one. 
Task-build and run the 


Task-build and run the 
Obtain a map. 


Task-build and run the 
Obtain a map. | 


task 


task 


task 


without overlays. Obtain a map. 


with all disk-resident overlays. 


with all memory-resident overlays. 
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Overlaying Techniques 
TEST /EXERCISE 


Task-build and run the task with G, Gl and H in memory- 
resident overlays, Hl and H2 in disk-resident overlays. 
Obtain a map. 


Use the map to fill in the following table: 


Type of Starting Virtual Starting Virtual 
Overlay Address of G Address of Hl 


No Overlays 


All 
Disk—Resident 
Overlays 


All 
Memory-Resident 
Overlays 


Disk-Resident 
and Memory- 
Resident 
Overlays 


(Optional) Task-build Example 6-5 so that the module TOTAL is 
in an overlay segment. 


(Optional) Modify Exercise 8. Add a subroutine RTOTAL which 
displays the running total after each job (e.g., THE TOTAL SO 
FAR IS xx). 


NOTE 1 
For debugging, place RTOTAL in the root 
segment and place all calls to RTOTAL in the 
module MAIN. 


NOTE 2 
Once RTOTAL is debugged, build the task with 
RTOTAL in an existing overlay segment. Place 
RTOTAL so that the task executes the fastest. 
(Still use autoload, but place RTOTAL to 
minimize loading of overlay segments.) 
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Overlaying Techniques 


SOLUTION 


The following is an output display from a task. 


MAIN CALLING SUBROUTINE G 
G CALLING SUBROUTINE Gl 
Gl RUNNING 

MAIN CALLING SUBROUTINE Hl 
Hl RUNNING 

MAIN CALLING SUBROUTINE H 
H CALLING SUBROUTINE H1 
Hl RUNNING 

H CALLING SUBROUTINE H2 
H2 RUNNING 

MAIN EXITING 


The calling sequence parallels the output display. 


1. Draw an overlay tree diagram or a memory allocation 
for a possible overlay structure for the task. 


MEMORY ALLOCATION 


OVERLAY TREE DIAGRAM 
| H1 H2 
G H 
MAIN 


TK-7744 
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diagram 


“IO CAD G1 Roe 


“a> “Er “Gr S> SP “Or 


a 
¥ 
a 
y 


a 
¥ 


Overlaying Techniques | 


SOLUTION 


+TITLE MAIN 
IDENT /01/ 


+ENABLE LOC * Enable lower case 
File LEX6A.MAC 
Mainline routine for Module 6» Lab Exercises 1-6.- 
Illustrate different overlays and their effects. 
+GLOBL. GyHi»H 5 Subroutines called 
*MCALL QIOWSCvEXITSS 
»*MCALL DIRERR 
Messasdes 


CGMS $ *ASCIT /MAIN CALLING SUBROUTINE G/ 


CGML. 


«~CGMS 


CHIMS? ASCII /MAIN CALLING SUBROUTINE H1/ 
CHIML = .«-CHIMS 
CHMS $ eASCIT /MAIN CALLING SUBROUTINE H/ 
CHML = «-CHMS 
EXMS% *ASCIT /MAIN EXITING/ 
EXML = «-EXMS 


{fF} cr ~<> ser 


+ EVEN 


For each routines tyre message then call routine 


TART? QLOWSC TO.WVBySelyee 92 CGMS »CGML » 40> 


BCS IOFAIL 

CALL G 

QIOWSC TO.WVBySyite9s9<CHIMS»CHIML. + 40> 
RCS IOFAIL 

CALL Hi ies 

QIOWEC TO.WVReSylye ys <CHMS » CHML ¥ 40> 
BCS IOFAIL 

CALL H 


QLOWSC IO.WVBySv199%»<EXMS*EXML » 40> 


EXITS 


IOFAIL? 3 DIRERR “ERROR ON QIO TO TERMINAL> 


«ENT START 
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Overlaying Techniques 


SOLUTION 


FROGRAM MAIN 


C 
C File LEX6A.FTN 
C 
C Mainline routine for Module 6» Lab Exercises 1-6. 
C Illustrate different overlays and their effects. 
C 
C For each routine, tyre messase then call routine 
C : 
TYPE X»’MAIN CALLING SUBROUTINE G’ 
CALL G 
TYFE Xv’MAIN CALLING SUBROUTINE Hi’ 
CALL Hi 
TYFE Xs» “MAIN CALLING SUBROUTINE H’ 
CALL H 
TYFE xX» “MAIN EXITING’ 
CALL EXIT 
END 
+-TITLE G 
+IQENT /017 
*ENABRL LC) s Enable lower case 
: 
y File LEX6B.MAC 
} 
’ Subroutine for Module 6» Lah Exercises 1-6. 
> Illustrate different overlays and their effects, 
3 
*GLOBL G1 * Subroutine called 
+GLOBL IOFAIL ’ Error routine 
+MCALL QIOWSC 
; 
» Messades 
, 


CGIMS? .ASCIT /G CALLING SUBROUTINE Gi/ 
CGIML = .-CG1IMS 


+EVEN 
; 
> Tyre messase then call routine 
; 
Gi? QLOWSC TO.WVBsSel999e2CGinS»CGIML 40> 
RCS ERROR 
CALL. G1 
RETURN 
ERROR?  JMF IOFAIL 
+ENT 
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Overlaying Techniques 


SOLUTION 


SUBROUTINE G 


Lah Exercises 1-6. 
and their effects. 


5 Enable lower case 


SUBROUTINE G1’ 


Lab Exercises 1-6. 


a 


y 


Error routine 


C 
C File LEXS6E.FTN 
C 
C Subroutine for Module 6y 
C Tllustrate different overlays 
C 
C Tyre messade then call routine 
C 
TYPE X*’G CALLING 
CALL G1. 
RETURN 
EN 
+TITLE Gil 
+IQENT 7/017 
*ENABL LC 
$ 
§ File LEX6C.MAC 
; 
¥ Subroutine for Module é» 
s Illustrate different overlays and their effects. 
5 
»*GLOBL IOFAIL 
*MCALL QIOWSC 
; 
y Messaces 
; 
GLRUNS *ASCII /G61 RUNNINGZ 
GIRUNL = .-GILRUN 
+EVEN 


ERROR ¢ 


messease then return 


QTOWSC 
BCS 
RETURN 
JMF 
ENTE 


TO.WVB Seley ee ey GLRUN»GLRUNL » 40> 


ERROR 


IOFATL 
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CHIML = 
CHEMS? 
CH2ML = 


Ture 
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e232 
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ERROR} 


Overlaying Techniques 


SOLUTION 


SUBROUTINE G1 


File LEX6C.FTN 


Subroutine for Module 6» Lab Exercises 1-6, 
Illustrate different overlays and their effects. 


Tyre messade then return 


TYFE X»’G1 RUNNING‘ 


RETURN 
ENT 


+ TITLE 
 TTIENT 


+ENARBL 


+GLOBRL 
»GLOBL. 
*MCALL 


eg 


*ASCIT 


+ ~CHIMS 


“ASCIT 


e~CH2MS 


+EVEN 
message 


QTOWSC 
BCS 
CALL 
QTOWSC 
BCS 
CALL 
RETURN 
JMF 
eEND 


lH 
/O1/ 
Lc § Enable lower case 


File LEX6I.MAC 


Subroutine for Module 6% Lab Exercises 1-4. 
Illustrste different overlays and their effects. 


HisH2 § Subroutines called 
IOFAIL > Error routine 
QIOWSC 


7H CALLING SUBROUTINE H1i/ 


7H CALLING SUBROUTINE H2/ 


then call routine 


TO.WVBRySetvy ye CHIMSrsCHIML + 40> 
ERROR 

Hi 

IO.WVBy Series 9c CH2MS»CH2ML » 40> 
ERROR 

H2 


TOFAIL 
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Overlaying Techniques 


SOLUTION 

1 SUBROUTINE H 

2 C 

3 CG File LEXé60.F1TN 

4 C 

a) C Subroutine for Module 69 Lab Exercises 1-6, 

6 C Illustrate different overlays and their effects. 
7 C 

$ C Tyre messade then call routine 

9 C 

10 TYPE X¥*’H CALLING SUBROUTINE Hi’ 

1i CALL H1 

12 TYPE X»’H CALLING SUBROUTINE H2’ 

13 CALL H2 
14 RETURN 

13 ENT 

1 »TITLE H1 

2 *+IQENT /017 

3 *-ENABL LE > Enable lower case 
4 3 

5 § File LEXSE.MAC 

& , 

? § Subroutine for Module 6» Lah Exercises 1-6. 

3 > Illustrate different overlays and their effects. 
9 ¥ 

10 »*GLOBL TOFATLL. s Error routine 
Li *MCALL QITOWSC 

12 ] 

13 y Messages 
14 y 

15 HEL PRLEN 3 ~ASCII HL RUNNINGS 

16 HIRUNL = .-HIRUN 

17 o EVEN 

13 ; 

19 y Tere messade then return 
20 } 

el Hat 3 QIOWSC TLO.WVBySytyss » ZHLRUNeHLRUNL » 402 
22 RCS ERROR 
23 RETURN 
24 ERROR?  JMF' TOFAIL 
23 + ENT! 
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Overlaying Techniques | 


SOLUTION 


SUBROUTINE Hi 


a 


C File LEX6E.FTN 


as 


C Subroutine for Module 6s Lab Exercises 1-6. 

CG Illustrate different overlays and their effects. 
Cc 

C Tere messade then return 


C 
TYFE xXy’HL RUNNING’ 
RETURN 
ENT 
»TITLE H2 
+IQENT /01/7 
*+ENABL LEC > Enable lower case 
; 
» File LEX46F.MAC 
$ 
> Subroutine for Module 6° Lab Exercises 1-4. 
> JTllustrate different overlays and their effects. 


*GLOBL TIOFAIL > Error routine 
*MCALL QIOWSC 


Messages 


“a> “> “> 


H2RUNS «ASCII /H2 RUNNING 
H2RUNL = «-H2RUN 
»EVEN 


y 
+’ Tyre message then return 
j 


Hoe 3 QIOWSC TO.WVBy Sede» ySH2RUNSH2RUNL » 40> 
BCS ERROR 

RETURN 

ERRORS  JMF IOFAIL 
ENT 


SUBROUTINE H2 


C 
C File LEX6F.FTN 
C 
C Subroutine for Module 6» Lab Exercises 1-6. 
C Illustrate different overlays and their effects. 
C 
C Tere message then. returrs 
C 
TYPE X»’H2 RUNNING’ 
RETURN 
ENT 
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Overlaying Techniques 


SOLUTION 


Module 4» Lah Exercise 3 
Task-build command to build MACRKO-11 without overlays 


oLINK/MAF LEX6AxsLEX6 BR» LEX6CysLEX6DyLEXGE » LEXGF »— 
~SLBGC Ly LIPROGSUBS/LIBRARY 


LEXSA = MAIN 
LEXGE = G 
LEXSC = Gt 
LEXS0 = H 
LEXSE = Hi 
LEXSPF = H2 


Module 69 Lah Exercise 3 
Task-build command to build FORTRAN with mo overlays 


SLINK/MAP LEXé6AxLEX6BeLEXSC sLEXS60xLEXGE s LEXOF 9 - 
“SLES CLs LIF APOTS/LIBRARY 


LEXéA = MAIN 
LEX6R = G 
LEX6C = G1 
LEX6ét = H 
LEX6E = Hi 
LEX6F = H2 
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Module 


So Nb ver 


OU Ff 
i overla 


QOURH $ 


¥ 

+ LEXGA 
$ LEX6B 
§ LEX6C 
* LEXS60 
y LEX6E 
¢ LEXGF = 
$ Module 
3 

; -ODL Ff 
§ overla 


HSEGS 3 
FLIBS 


LEX6A 
LEX6E 
LEXéC 
LEX62 
LEX6E 


S> “Sr > “Wh Sr ads Sd 


Module 


overla 


“Sr “S> “€> “Sr “MEP 


QOVRH 


LEX6A 
LEX6B 
LEXéC 
LEX6D 
LEXGE 
LEX 46F 


“Sp “BP MP > “ER SS OED OT 


LEX6éF = 


rs 


Overlaying Techniques 


SOLUTION | 


Sy Lab Exercise 4 


ile for bhuildins MACRO-11 with all disk resident 


WS 
»ROOT 
*FCTR 


HoH HOW 


eEND 


éy Lab 


ile for 


ws 

«ROOT 
»FCTR 
+FCTR 


MAIN 
G 
G1 
H 
Hi. 
= HQ 
ENT 


HOW HE il 


ii 


6» Lab 


-OUL file far 


3 


«ROOT 
oF CTR 


= MAIN 
= G 

= G1 

ca 

= HY. 

= H2 


+END 


LEXé6éA-PROGSUBS/LB-*CLEXSB-LEX6C »0VRH) 
LEX60I-(LEX6E 9 LEXGF ) 


Exercise 4 
buildings FORTRAN with all disk-resident 
LEXé6A-FLIB-k CLEX6B-LEX6C~FLIEB»sHSEGS > 


LEXS60-FLIB-CLEX6E-FLIByLEX6F-FLIB) 
LE¢CiviIF4FOTS/LE 


Exercise & 


MACRO-11 with a@11 memory-resident 


LEXSA-FPROGSUBS/LB~xX! C(LEX6B-LEX6C »OVRH) 
LEX60~! (LEX6E sLEX6F ) . 
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Overlaying Techniques 


SOLUTION 


+ 
Joes 


Module 6» Lab Exercise & 


S> “> “Sr “E> 


ROOT LEX6A-FLIB~k! C(LEX6B-LEX6C-FLIB»HSEGS > 
HSEGS$ .FCTR LEX60-FLIB-! (LEX6E-FLIByLEX6F-FLIB) 
FLIBS oFCTR LBSClsLIF&aFOTS/LE 


LEXS6A = MAIN 
LEX6B = G 
LEXé6C = G1 
LEX&@t = H 
LEXSE = Hi 
LEX6éF =H2 


“—> “> S> “> “E> “Er @?> 


ENT 


’ Module 6» Lab Exercise 6 
y 


y OL file for MACRO-11 with some memory-residents some 
* disk-resident overlays 

«ROOT LEX6A-FPROGSUBS/LB-X! (LEX6R-LEX6C » OVRH) 
QOVRH? +FCTR LEX6II-(LEX6EsLEX6F ) 


LEXSA =MAIN 
LEXé6B = G 
LEXé6C = G1 
LEX6D = H 
LEX6E = Hi 
LEX GP = 


“SP So “Sh “BP “Eb MED SED 


“So 


Module 6» Lab Exercise 6 


-O0L file for FORTRAN with some disk~-residents some 
memory-residetn overlays 


“> “> “> “> “a> 


sROOT ‘LEX6A-FLIB-! (LEX6B-LEX6C-FLIByHSEGS ) 


HSEGS$ .«FCTR LEX460-FLIB-CLEXS6E-FLIByLEX6F-FLIB) 
FLIES eFOTR LESCLs1LIF4AFOTS/LE 
; 
9 LEX6A = MAIN 
y LEX6ER = G 
y LEX6C = Gil 
y LEXé0 = H 
y LEXS6E = H1 
§ LEX6F = He 
; 
«ENT 
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sOUL file for FORTRAN with g@11 memory~-resident overlays 


Overlaying Techniques 


SOLUTION 


Use the map to fill in the following table: 


Type of Starting Virtual Starting Virtual 
Overlay Address of G Address of Hl 


No Overlays 


All 
Disk-Resident Answers will vary depending on 
Overlays students' particular solution. 


All 
Memory-Resident 
Overlays 


Disk—Resident 
and Memory- 
Resident 
Overlays 


Module 6» Lab Exercise 8 


.O0L file in MACRO-11 to place TOTAL in an overlay 
semen. 
All overlays are disk-resident 

«ROOT MAIN~-XCA~-( JOB» JORXX)» BR» TOTAL) 

»ENT 


“S> td E> te 


ae 


Module 6» Lab Exercise 8 


-OlL file im FORTRAN to flace TOTAL in an overlay 
sedment. 
All overlays are disk-resident 

»ROOT MAIN-FLIB-XCOVURAsE-FLIB:s TOTAL-FLIB> 
OVRAS «FCTR A~FLIB-(JOBI-FLIB:y JORXX-FLIB) 
FLIB? +FCTR LESCLyLIF4FOTS/LE 
»ENT 


“a> “> Sh “> “GP 
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Overlaying Techniques 


SOLUTION 


+TITLE MAIN 
eIDENT /0O17 


*ENABL LC 5 Enable lower case 
FILE LEX69A.MAC . 39EX 
Modified to call RTOTAL to diselay the runnins #¢EX 
totel after each call to A ee EX 


This Frogram frrints a messade and then calls 
subroutine A. Subroutine A asks whether to rerform Job 
1 or Job 2. It then calls either subroutine JOBRI or 
JOB2 which everforms the Job and diselays the results. 
MAIN then calls subroutine &. Subroutine EF disrlays 2a 
message and exits. MAIN then calls subroutine A 3 

more timess keering a Srand total of the orerations. 
Finally,» it diselays the ¢rand total and exits. 


Task-build instructions? Use LEX69A,00L as the inreuts se EX 
file. . 


»MCALL QIOWSCeEXITS$SsQIOWSS ¢ Surerelied macros 
»+NLIST BEX Tio mot list binary 
extensions 
Leave srace to make 
sedment larser 
S13 *ASCII /THE MAIN SEGMENT IS RUNNING AND WILt7/ 
“ASCII / CALL A/ 
LMESL=.-MESL 
$2? *ASCITI /THE MAIN SEGMENT WILL NOW CALL B/ 


L.MES2 =+-MES2 


+ BLAW 1024.4 


<> “SP “CP “a> 


MES 33 *ASCIT /THE MAIN SEGMENT WILL NOW CALL A/ 


ME. 


LMES3 =.-MES3 
543 *ASCII /THE MAIN SEGMENT WILL NOW CALL TOTAL 7 
L.MES4 =.~-MES4 


G33 *ASCIT /THE MAIN SEGMENT WILL NOW EXITS 


LMESS =.~MESS 
»FSECT OTHER tvyGRLvOVRyRELy RW ¢ FSECT for data 


OFA? WORT 3 § Ist orerand 

+WORD OF y address of oreration 
§ aim ASCII 

OF 23 »>WORT 2 § 2nd orerand 

ANS} +BLKW 1 > Answer to oreration 
*F SECT > Back to hlank FPSECT 
+EVEN § Move to word boundary 

TOT? ? »WORT 0 § Total 

OF? 3 + BLKE 1 § Orerand im ASCIT 
+EVEN * Move to word boundary 
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Overlaying Techniques 


SOLUTION 


START? QIOWSC TO.WVBey Selves tMESL»LMES1»40> sWrite MES1 


a 


9 


LOOF ? QTOWSC TO.WVReSoley yeh 


CALL A § Call subroutine A 
CALL RTOTAL § Call routine to ¥¥EX 
§ diselay running 95EX 
s total 2 3EX 
QIOWSC TO-WVUR es Seley vy es MESS» LMES2 40> gWrite MES2 
CALL 1&3 * Call subroutine B 
Set ur for loor 


MOV #£3rR4 ‘Counter 


-OSeLMESS2s40> § Write MESS 


iT ~e> 


CLR ANS ¢* Clear answer in case 
y of no oreration 
CALL. A § Call subroutine A 
CALL RTOTAL. § Call routine to 9 9EX 
> diselay runnins 99 EX 
> totel #eEX 
SOR R49l.O0F + Decrement counter and 
> loor back until done 
QIOWSC TO.WUBRsSoly oye tMES4sLMES4»40> § Write MES4 


CALL TOTAL % Call routine to 
’ disrelay grand total 
QTOWSC FTO-WVUBsSelovy es tMESSyLMESS 2402 §¢ Write MESS 
EXITS y Exit 
*+END START 
FROGRAM MAIN 
FILE LEX&6&9A.F TN ''EX 


Modified to call RTOTAL to disrlay the running PhlEX 
after each call to A PlEX 


This Frogram frrints 8 messasge and then calls subroutine 
A. Subroutine A asks whether to rerform Job 1 or Job 2.F 
It then calls either subroutine JOR or JOB2 which 
rerforms the oreration and disrelays the results. MAIN 
then calls subroutine EB which disrlays a messasde. MAIN 
then calls subroutine A 3 more timess keerinsg a srand 
total of the orerations. Finally» it disrelays the 

grand total and exits. 


Task-build instructions’ Use LEX69A.00L as the ineut! ll EX 


file for RTOTAL in the root. Use LEX69R.00L as the PlEX 
imeut file for RTOTAL in the best overlay segment bIEX 
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Overlaying Techniques 


SOLUTION 


COMPLEX RUMMY C1024) ! Leave srace to make 
! segment larger 

COMMON /OTHER/OF1 » OF + OF 22sANS 

INTEGER OF 1+O0F ¥OP2» ANS 

VATA OF Le OFP 2/5227 | 


COMMON /TOTCOM/TOT 


INTEGER TOT ’ ! Total 

TYPE &» “THE MAIN SEGMENT IS RUNNING ANT WILL 

JCALL A’ 

CALL A ! Call subroutine A 

CALL RTOTAL ! Call subroutine !!EX 
' = RTOTAL to disrlay! !EX 
! running total tleEX 

TYPE x&s “THE MAIN SEGMENT WILL NOW CALL B’ 


CALL & ! Call subroutine & 

NO 10» [193 

TYFE xX» ’THE MAIN SEGMENT WILL NOW CALL A‘ 

ANS = 0 ! Clear answer in case 
! of no oreration 

CALL A ! Call subroutine A 

CALL RTOTAL ! Call subroutine I !!EX 
! RTOTAL to disrlaw! !EX 
0 6the running total! !EX 

TYFE X» “THE MAIN SEGMENT WILL CALL TOTAL’ 

CALL TOTAL. (TOT) ! Call routine to 
! display drand total 

TYPE xX» “THE MAIN SEGMENT WILL NOW EXIT’ 

CALL EXIT ! EXIT 

ENTIt 
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Overlaying Techniques 


SOLUTION 


»>TITLE RTOTAL 
~ITQENT /01/7 
+ENABL LC 3 
; 
s FILE LEX69R.MAC 
; 
+ Subroutine to rrint the runnmins 
5 
*MCALL QTOWSS ; 
*+NLIST BEX ; 
5 
RTOFMT? .ASCIZ /THE TOTAL SO FAR 
RTOTEBF? .BLKEB 100. 3 
+EVEN 
»#NLIST BEX 3 
RTOTAL? MOV #RTOTRF es RO } 
MOV #ERTOFMT + RI ; 
MOV #70T Re ; 
CALL $E0MSG 3 
QIOWSS #I10,WVUB eo #5 etl vey 
} 
RETURN 
»ENT 
SUBROUTINE RTOTAL 
Cc 
C FILE LEX469R.F1TN 
c 
C Subroutine to frint the running 
C 
COMMON /TOTCOM/TOT 
INTEGER TQT 
TYPE S»TQT 
5 FORMAT(C’ THE TOTAL SO FAR 
RETURN 
ENT! 
Module 6% Lah Exercise 9 


Enable lower case 


total 


External system macros 

Ilo not list hinary 
extensions 

IS “420.7 +Format 

Outeut buffer 


string 


List binary extensions 


Set ur for $E0IMSG 


Edit messase 


S#RTOTBF e RL» #402 


Frint it 


total 


IS» 


I49°%.7%) 


-O0b file im MACRO-11» lacing RTOTAL an the root 
sedment for testing . 
AL] averlays sre memory-resident 


LEX69A 
LEX69R 


+ROO 
= MM 
a ft 


e ENT 


T 
AIN modified 
TOTAL 
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LEX&9A-LEX469B-k 1 CA! CJOBL»s JOBXX) vy Bs TOTAL? 
to eall RTOTAL 


Overlaying Techniques 


SOLUTION 


Module 6» Lab Exercise 9 


-OUL file im FORTRAN: elacins RTOTAL in the root 
sedment for testing 
All overlays gre memory-resident - 
*ROOT LEX&69A-LEX469R-FLIB-k! COURAyOVRBy TOTAL -FLIB) 
QVRAS «FCTR A~FLIR~-! (JOBL-FLIB:s JOBXX-FLIEB) 
QURES +FCTR BR-FLIE 
FLIES FPF CTR LE? ELyLIF4S4FOTS/LE 


“> “> “> “> <> 


$ 
y LEX6é9A = MAIN modified to call RTOTAL 
¢ LEX69R = RTOTAL 
3 
*ENT 


Module 6» Lah Exercise 9 


-O0L file in MACRO-i1y elacing RTOTAL in the best 

overlay sessment 

AL] overlays are memors-resident 
“ROOT LEX&S9SA~K! CA-LEXS69R-! CJOBRL ys JOBXX) » By TOTAL) 

MAIN modified to call RTOTAL 

RTOTAL 

«END 


‘> “E> “> S> “EP 


¢ LEX6é9A 
LEX&SOR 


Ho 


“oP 


Module 6» Lab Exercise 9 


-OUL file im FORTRAN: elacins RTOTAL in the best 
overlay sessment 
All overlays are memory-resident 
«ROOT LEX69A~-FLIB-K! COURAsOVRBsOVRC > 
QVRA3 +FCTR A~LEX69B-FLIB-! (JOBI-FLIB»y JOBXX-FLIBD 
QVRES »FCTR BR-FLIE 
QYRC 3 »FCTR TOTAL~FLIE 
FLIES +FCTR LEICLyLAF4FOTS/LE 


—@> “> “> “> “S> 


, 
§ LEX69A = MAIN modified to call RTOTAL 
¢ LEX69R = RTOTAL | 
9 
*ENT 
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Static Regions 


TEST /EXERCISE 


Create an initialized resident common (size: 32(18) blocks = 
1924(18) words, contents: 25(18) in each word). Check with 
your course administrator to find out where to place the 
common type partition. Write two tasks, one that modifies all 
values in the common, and one that reads the values’ and 
displays them. 


Create a resident library using the supplied FORTRAN callable 
subroutines AADD, SUBB, MULL and DIVV (all in LIB.MAC). Write 


a task that calls one or more of the routines. For example, 
write a task that asks for four numbers (A, B, C, and D) and 
then computes and displays (A * B) + (C * D) = answer. 
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Static Regions 


SOLUTION 


eTITLE LEXZLA 

+ITHENT /0O17 

eENABL LC y Enable lower case 
File LEX71A.MAC 


Frogram which creates and initializes 3 common resion 
which will be referenced using overlaid Psects. 


Sive 1024. wordss contents all 25’%s 

Task-build instructions? Must include /SHAREABLE : COMMON 
and /NOHEATER switches: STACK=0 and PAR=COMWFE ortions, 
Must create .STEKE file. May be /CONEIFIC or absolute 
(default), 


The code is elaced in a Fsect mamed MYDATA 


sFSECT MYDATA DyGBLyOVR ¢ Defaults REL» RW 


»REPT 1024. § Rereat count 
~WORT Qe § Word of 25¢10) 
+ENDR ' End rereat ranse 
«ENT 


BLOCK DATA LEX71A 
File LEX71A.FTN 
Frosgram to create and initialize 8 resident common 
Size is 1024 words» initialized with all 25’s 
Task~-build instructions’: Must include /SHAREABLE? COMMON 
and /NOHEANER switches s STACK=0 and PAR=COMWF ortions. 
Must create .STB file. May be /CODE?FIC or absolute 
(the default). OTS library NOT reauired. 

COMMON /MYDIATA/ 161024) 


VATA I /1024k25/ 
ENI 
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Static Regions 


SOLUTION 


*TITLE LEX71& 
IMENT 7017 
*ENABL LC y 
+ 
PILE LEXZ71B.MAC 


This task decremtents the values 
resionm LEX7IA. It uses the techn 
to reference the resione 


Task-build instructions? 
SLINK/MAF/ORP TION LEXIE 


Ortion? RESCOM#LEX?ZLA/RW 
Ortion? <RETS 


"S> “Sp “Sr “Ge “Sh “SD CP “Sah “SP? “Ph “CP E> SP 


*MCALL QIOWSSeEXITH&S 3 
ePSECT MYDATA DvGRL »OVR »¢ 

Ms, 3 
3 

oF SECT 3 

LOSE? + RLKRW ra $ 
ARG > ¢ BLKW 1 3 
¥ 

BUFF ¢ BLAKE 100. $ 


FERRI: ~«ASCIZ /OITR ERROR ON QI0. 


FERR2? .ASCIZ !1/70 ERROR ON QI. 
9 


WONES ASCII /LEX71B HAS MODTFI 
“ASCIL 7 IN THE COMMON LE 

LQONE =,.~DONE 

W =LO24, ; 


a 
Y 


START? MOV My R2 $ 


MOV #We RS 3 

L.QOF 3 NEC (R224 3 
SOB RS» LOOF ; 
QTOWSS #IO.WVRy FS o bd yo FTO 
RCS ERROR 3 
TSTE LOSE 3 
BLT ERROR , , 
EXITS ; 

’ Error code 

ERROR? MOV $0SWy ARG 
MOV TRERR Lo Rd 
ER SE TUF 


“> “> “> 
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Enable lower case 


im the static common 


jaue of overlaid Fsects 


System macros 

Fsect used in COMWF 
local sumbol for start 
of restion 
Back to blank Feect 
I/O status bilock 
Arstuument block for 
error code 
OQuteut tburfer 


CONE = “20/7 9 Directive 


error messase 


CONE = 4! ¢ I/O error 


MESSEase 


En THE VALUES/ & Tone 


X71A/ } MESGIAste 


Word count in resion 


Starting addr of data 
im the restion 

Loor count 

Necrement value 

Loar back if mot done 

SEy y SH ONE 9 RL OONE » 40> 

Check for dir error 

Check for I70 error 

Rraneh aon I/O error 

Ex at 


Move iSW to ars block 
Addr of format string 
Branch to $ENMSG code 


Static Regions 


SOLUTION 


ERRORI? MOVE TOSK»kO y¥ Extend sigm om T/0 
MOV — ROYARG ¢ status and elace in 
y are block 
MOV FF ERR? 9 RA § Addr of format strirnst 
SETUF? MOV #HRUFF »y RO § Addr of outreut puffer 
MOV FARG ss R2 + Addr of arstument block 
CALL. $E MSG ¢ Edit messese 
QTOWSS #£LIO.WVRe #eSe hl yyy y SHERURFF yo Re #402 § Write 
+ Messacde 
EXITéS ¢ Exit 
eENT START 


NaN NOOmanarnanmn 


10 


PROGRAM LEX71B 
File LEX71iB.FIN 


Task to decrement each word in the static common 
resiom LEX71A. It uses ea COMMON to reference 
the date. 


Task-build instructions? 


LINK/MAP/OP TION LEX7IBsyL BIC Ls LIFOROTS/LIBRARY 
Oetion? RESCOM=LEX71A/RW 
Ortion? <RET > 


COMMON /MYDATA/ £61024)! Common to reference 
! shared resion 

Decrement values 

ng S KR=1s1024 

L¢K EL OR 4d 

CONTINUE 

WRITE (€5%10) ! Tlisrlay done message 

FORMAT (’ LEX71B HAS MODIFIED THE VALUES IN THE 

1 COMMON LEX7I1A%) 

CALL EXIT 

END 
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TITLE 


Static Regions 


SOLUTION 


LEXZA1C 


eIQENT /O1/ 


eENARL. 


+ 


FILE 
This task 
to reference 


Task~-budild 


Oetion? 


‘C> "> S> “S> “Gr > > Sr EP D> “CP “SP SD 


*MCALL. 
FP SECT 
M= 


eFSECT 
+ BLAW 
*BLKW 


TOSEK: 
ARGS 


BUFF 3 
FMT 3 


.+ BLAE 
*ASCIZ 


FERRI: .ASCIZ 


FERR2 3 


*ASCIZ 


N&128. 


eE VEN 


9 
START? MOY 
MOV 
MOV 
MOV 
CALL. 
QTOWSS 
RCS 
ISTE 
BLT 
y Stay here 
SOR 


L.OOF 


for 


EXIT$S 


sets the 


the 


oLINK/MAFZOFP TION 


Le > Enable lower case 


LEXZIC.MAC 


Values from the static 
It uses the techniaue of 
TESLOIM. 


commor 
overlaid Fsects 


instructions? 


LEXZ IC 


“RE TS 


System macros 
Fsgect used in COMWF 


QLlOWSS rsEXTI T&S $ 
MYQATA DvyGBRLyOVR § 


local symbol far start 
of resion 
Back to blank Foeect 

2 I/0 status block 


1 Arsument block for 
error code 

Quteut buffer 

Format string for 
outeut of data 

NSW = “20/ ¢ Directive 
errar messadte 
ON QYO. CONE = “2D! ¢ 


y MESS Bee 


100, 
f4ABT7/ 


“So Sh “Ch “E> “GD "CP GD “ED "ED 


/QIR ERROR ON Q10. 
’ 


11/0 ERROR I70 error 


count - L128. linesy 


5 Loor 
$ rer line 


8 #5 


#My R2 Starting addr of data 
in the restion 

Loor count 

Quteat buffer 

$FMT ey RA Format strirmst 

$ENMSG Edit messase 


FLIOWVERy #59 #1 y RLOSRy y SBUFF eo RI #40 


FN y RS 
HRUFF 9 RO 


Wr “S> Sr “SP “E> “Sd 


ERROR Y Check for dir error 
IOSEB y Check for I/0 error 
ERROR AD y KRranch om I70 error 
Hood write 
RS» LOOF § Tecrement counmtery lLoor 
§ hack if mot vet done 
§ Exit 
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wil 
wa 


| saat 
vob ve 


34 
wed 
ud 
aes 
38 
uy 
50 
él 
62 
63 
64 


65 


a 
¥ 
ER 


ER 


SE 


Re. 


CY CE a a OP 


[7. 
Ne 


10 


Static Regions 


SOLUTION 


Error code 

RORS MOV $0SW» ARG 
MOV $F ERR Le RI 
BR SETUF 

RORL? MOVE TOSKy RO 
MOV RO» ARG 


Move [SW to ars block 
Addr of format strings 
BRranch to $E0MSG code 
Extend sigm om 7/0 
Status and rlaece in 
ars block 
Addr of format strings 
Addr of outeut buffer 
Addr of arsument block 
Eqit messase 
“BUFF oy Ry #40> 3 Write 
message 
Exit 


MOV FFERR2 ¢ RA 
TURF? MOV FRUFF RO 
MOV #ARGYR2 
CALL. $EUMSG 
QLOWSS #FIOWVR ye Sy 1» vy 


ah “E> “SS [Re “E> Me > SP “E> GP “Pm Sd “SP 


EXITSS 
«ENT START 


FROGRAM LEX71C 
File LEX71C.FTN 


Task to read data from the static common resion LEX71A 
and erint it out at TIt. It uses a COMMON to refererice 
the data. 


Task-build instructions? 
LINK/MAF/OPTION LEXZIC»sLBtCislIFOROTS/LIBRARY 
Oetion? RESCOM=LEX71LA/RO 


Ortion? <RETS 


COMMON /MYDIATAZ L.¢61024)! Common to reference 
! shared resdion 


C Looe throush to diselay regions 8 numbers on a line 


no SO J = 1¥1024+98 

WRITE (Sy10) (LORD sK=JyJ4+7) !§ Write values 
FORMAT (4% ’»9I2»97T8) 

CONTINUE 

CALL EXIT 

ENIt 
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SOON BUS Whe 


10 


+ 


“<> > wr “> “> “SP “GP “Gr a> > Sr SP EP “Ed 


Static Regions 


SOLUTION 


»+TITLE LEX72 
+IQENT /017 
*ENABL LC > Enable lower case 


File LEX72.MAC 


Solution to Module 7» Lab Exercise 2 


Task commutes sum of Froducts using resident Library 
TOULLMES » 


Assembly and task build instructions? 


MACRO/LIST LEiCly1lIFROGMACS/LIBydevilufdILex72 


LINK /MAP/OFP TIONS LEX729L Bi C1ls1lLIPROGSUBS/LIE 
Oetion? RESLIB=LIB/RO 


*MCALL QITOWSsQTOWSS » QTOWSC » DIRS 2EXITSS 
*MCALL TDTRERR» LOERR 
*GLOBL ¢$CUTRy $E0NMSG6 y Routines im SYSLIE 
*GLOBL MULL» AAD 3 


Messedes 


HORMS3 .ASCII /TASK WILL COMPUTE (CAXBO+(CXDD /2152212> 


“ASCII /ZENTER NUMBERS IN DECIMAL. 7 


HORMEL = .~HORMS 
APRMT? sASCIT /ENTER Az / 


PLEN = 4 -APRMT § Lensth of Fromet 
; Cassumed to be all the 
+ Same lensth) 
BFRMT? ASCII /ENTER Bi / 
CFRMT? ASCII /ENTER Ci Z# 
DFRMT? .ASCII /ENTER [3 7 
ASCII buffers 
ASCAE +BLKB 7 * ASCII for A’s value 
ASCE? » BLAKE 7 y Same for & 
ASCC?3 + BLKB 7 ’ C 
ASCII + BLKE 7 > I 
OUTBUF? .BLKE 80, 


$EQNMSG format strings 


EQIMFMT$’ +«ASCIZ /SANCZVA & ZVA) + CAVA K ZVA)D = ZT 


+EVEN 


FORTRAN-comeratible argument blocks? 


MULARG? .WORD 3 » For MUL 


«WORD Mi 
«WORT M2 
«WORD MULRES 
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Routines in library LIEB 


Static Regions 


SOLUTION 
AINARG? .~WORD 3 »’ For Ag 
»WORD MURES1 + First MUL result 
»~WORT MULRES § Second result 
»WORT GRTOT > Grand total 


ASCII buffer table. Initially each entry in this table 
consists of the arcidress of 3a Fromrt string followed by 
the address of the buffer to store the inrut. After 2 
string is inreuty howevers the rromet strings address is 
rerlaced by the length of the inreut string. This 
table, with the addition of the final value GRTOTs then 
; serves as the $EIMSG argument block. 
EDMARG$ . 
ABTEL 3 WORT AF RMT »ASCA 
WORT BF RMT» ASCE 
CUTBL? «WORD CFERMT»ASCC 
WORT DERMT»ASCH 


> Srp “> “Mr SP > WP 


GRTOT? «WORT § Grand total (numeric 
; § Value 16 inserted 
+ directly into $E0MSG 
§ block) 
¥ 
¢ Other mumeric values 
M13 + WORT ’ First MUL argument 
M23 »WORT + Second MUL arsument 
MURESL? .WORD ¢ First MUL result 
MULRES? WORT + MUL result 


ROFRMT? QIOWs IO.RFRySvytvvTOSKy vty 7ey ye PLENy % $> 
IOSE; « BLAW 2 


Code 


cs> “> “> 


33 


START? QIOWSC TO.WVBsSedeyeeycHIRMSsHORML 40> » Identify 


MOV #MieRS + RS => location to store 
5 binary ineut values 
MOV #RTIERMT » RA > R4 => “read with 
> Fromet" DPR 
MOV #ABTBL 9 RS ¢ RZ == ASCII buffer table 
CALL GETINE + Get A 
CALL. GETINF + Get & 
MOV #MULARG»RS y RG => MUL ars hlock 
CALL. MULL. ' flo first multiely 
MOV MULRES »MURES1 + Save result 
MOV ¥#M1i°RS > Reset resisters 
MOV #ROFRMT » RA ; (FORTRAN calling 
MOV ¥CUTBL » RS § convention does not 
> sguarantee they are 
+ Preserved.) 
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101 
102 
103 
104 
10S 
104 
107 
108 
109 
110 
lit 
biz 
113 
114 
Lis 
116 
117 
118 
119 
120 
121 
122 
123 
124 
Lao 
124 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 


Trivett 3 


G “> “rp “E> “Sh “A> “Sr “Sh “HP “EP “SP “Oe “Gr “CR “CD 


SET INE 3 


a 


y Error 
TODER? 
LOLTOER? 


CALL. 
CALL 
MOV 
CALL 
MOY 
CALL. 


MOV 
MOV 
MOV 
CALL 
QIOWSS 
BCS 
EXIT$$S 


Outrut? 


MOV 
MOV 
MOV 
NIRS 
BCS 
CMFR 
BNE 
MOV 
CALL. 
MOV 
RETURN 


Static Regions 


SOLUTION 

GETINF + Get C 

GETINF > Get D 

#MULARG YRS 

MULL. > To second multirly 

#ANTIARG ¢ RS 

AAIL § Add multirlication 
> results 

#OUTRBUF » RO i Frerare 

#EDIMFMT Rt § = 6for 

FEDIMARGsR2 > $EDNSG 

$E0MSG 


#ITO.WVBs #59 #17 e%7ctOUTRUF + Ri» #402 
IOUER 


Subroutine GETINE to get ineut values. 


RS si location to store binary result 
R4 => QiO DFE 
RY ol Address of Fromret stringy 


followed buy address to store 


ASCII inreut 


RE om imeut value +2 
R4 Unchansed 
R3 = ineut value +4. Location 


containing address of frromrt now 


contains length of ineut 


CR3)+9Q,.IT0OPL4+6(R4) s Load rromet address 


(R3)+%9R0 ¢ RO => ineut buffer 
RO»Q.TOFLCR4) § Cory to QIO TFR 

R4 ¥ Get ineut 

ITOER ¢ Directive error 
~TOSKs#I$.Suc + I/O successful? 
TOIOER + No 

TOSE+2%-4(R3) § Save inrut length 
CTH 5 Convert to binary 
Riv (RS)+ $ 


Store binary 


MESSBHES 3 


NIRERR 
IOERR 
ENE 


<ERROR ON QIOWS: | 
#I0SEy<ERROR ON QIOWS> 
START 
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FSR OM DI & UD G hoe 


Static Regions 


SOLUTION 


FROGRAM LEX72 


Ct 
© File LEX72.FTN 
G 


Solution to Module 7s Lab Exercise 2 


roOULTMNeES + 


Tesk thuild instructions? 


Oetion? RESLIB=LIB/RO 


CUOOd Ce TEP oy os 


INTEGER AvyB»yCyDyMURESI »>MURES2sGRTOT 


Task comrutes sum of rroducts using resident library 


LINS/MAP/OF TIONS LEX72,LB3Civsl1IFAFOTS/LIE 


C ASCII bytes to make erometinsg code cleaner 
RYTE ASCAsASCERsASCC*s ASCE 
TATA ASCAsASCBYASCE sASCIS ‘A’ + °R? 9 “C4 9 SENS 
C 
TYFE 3&3 
3 FORMAT ¢€% TASK WILL COMPUTE (AKB)+(CkDI) 77 
1 ’ ENTER NUMBERS IN DECIMAL. %> 
C FORMAT statements used rereatedly helow? 
15 FORMAT (°$ENTER “’vAle%3 7) 
20 FORMAT (16) 


Fromet for 
and ineut A 
Fromet for 


TYFE 15%ASCA j 
ACCEPT 25%A ! 
TYPE 15*ASCE ! 
ACCEFT 255 ! oo and inrut &B 
CALL MULL (CArsB»sMURESI > ! MURES1 = AXE 
TYFE 15°ASCC ! Fromet for 
ACCEFT 25°C to and inreut C 
TYFE 1i5*/ASCH ! Fromet for 
ACCEPT 25+0 fool and ainrut 0 
CALL MULL (CsItyMURES2) ! MURES2? = Ch 
CALL AALICMURES1 »MURES2»GRTOT) ! GRTO 
TYPE 35 AvBy Ceo TyGRTOT 
35 FORMAT ¢¢% C’9I69% K ’y¥TGe’)d + OC’ 9 The 7% 
CALL EXIT 
END 
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T 


x 


= sium 


“yTéyx’%) 


“yI6) 


Dynamic Regions 
TEST/EXERCISE 


Referring to Exercise 1 of Module 7 (Static Regions), modify 
the tasks that reference the common so that they both map to 
the common dynamically using the memory management directives. 


Write a task that creates a dynamic region two blocks’ long, 
Fills it with a character typed in at the terminal, and leaves 
it in existence on exit. Write a second task that modifies 
one value in the region, then displays all the values in the 
region at the terminal, and finally deletes the region. 


Modify SNDREF so that it sends the region by reference to a 
second receiver task, in addition to RCVREF. Write the second 
receiver task, which should modify values in the region and 
then display the values in the region at the terminal. 
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CMON A CDS he 


11 


Dynamic Regions 
SOLUTION 


*+TITLE CLEX8iB 
eIQENT /0O17 
+ENABL LC ’ Enable lower case 


+ 


File LEX81B.MAC 
LEX7Z1IB modified to use memory manesement directives 


Frogram to attach to the existing region LEX71A,» create 
a virtual address window (marred om creation)» decrement 
allo values. in the region by il» detach from the resion 
and exit. 


Assemble and task-huild instructions? 


*MACRO/LIST LBtC1s17FROGMACS/LIBRARY »deviCufd ILEX81E 
SLINK/MAF/OPTION LEX81BeLBiCl»s1IPROGSUBS/LIBRARY 
>Oretion? WNIWS=1 - : 
SOrtion? <RET> 


3 
1 


“Er “GP Gr “Sh ‘Gr “Eh “SP “IP Sh GD “E> SP “EP “E> “EP “E> SS 


*MCALL EXITS$S»ROUBBKS»WORBKS»ATRGSC § Sustem 


*MCALL CRAWS°DTRG$S oe DIRS sQITOWSS y macros 
*MCALIL TTRERRy IOERR y Surelied macros 
ROB? ROUBBKS 32. 9LEX7LAyLEX71As<RS WRTIRS. REDS 
Define resdion with? 
Size = 32. (32. word blocks) 
Name = LEX71A 
Fartition = LEX71A 


Attach with read and write access 


CRAWS WIE s0FKR for create address window 


IN? 
DE: . WOBEK&S 7y32.9090232.92WS. MAF IWS RED! WS. WRT 
Tefine window with? 
APR = 7 
Size = 32, (32. word blocks) 


Offset in resion = 0 (32. word blocks) 
Lensth im region = 32, (32. word blocks) 
Mar om create with read and write access 


= ft “er *€> “er cm “Se “a> “Er = = > “Sh “GP E> “BP “SD 


OSE? + BLKW 2 § I/0 status block 
=1024, ¢ # of words in region 
NONE 3 *ASCII /LEX81B HAS MODIFIED THE VALUES/ ¢ Tone 
“ASCII 7 IN LEX71AZ ; mMmessase 
LONE =,~DTONE 
START: ATRG$C RIE y Attach to resion 
RCS © ERR1 y Check for error 
MOV ROBR+R.GIDyWUBtW.NRID ¢ Move resion If 
| y into WIR 
DIRS #WIN + Create window 
RCS ERR2 s Check for error 
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Dynamic Regions 


SOLUTION 


MOV #140000 2R2 + Set base addr in resion 
MOV #WeRS § Get word count 

LOOFS = DEC (R2)+ y TLlecrement value 
SOK RS »yLOOF ¢ Loor until done 


Aa 


y 


QIOWSS #IO.WVR es £59419 op FTOSKy » KETONE » EL OOONE » $403 
s Write done message 


= 


RCS ERRSH ¢ Check for dir error 
TSTE IOSE ¢ Check for I/0 error 
BLT ERRSI s Branch onm error 
NTRG$S #ROE + Letach from resion 
BCS ERR4 5 Check for error 
EXIT$S 


Error handling code 


ERR 3 DIIRERR <ERROR ATTACHING TO REGION? 
ERR2 ¢ TIIRERR <ERROR CREATING WINDOW ANID MAFPING> 
ERRSD? ODTRERR <ERROR WRITING DONE MESSAGE> 

ERR3I3 TOERK #IOSER»s<ERROR WRITING DONE MESSAGE 
ERR4$ QIRERR <ERROR DETACHING FROM REGION: 


a OO IAAI wIwiriIwin 


Le 


7 0302 


«ENT START 


FROGRAM LEX818 
File LEX8SLB.FTN 
LEX7Z1iIB modified to use memory management directives 


Frodram to attach resion LEX71A in rartition LEX7IA 
create & window and mar it to the resdion uronm creations 
decrement each value in the redion by ly and detach 
from it 


Task-build with these ortions? 
VSECT=DATA? 1600003 20000 
WNOWS= 1 


INTEGER ROBC8) »WORCS) 
This commom block will aeligm with the address window 
COMMON /DATA/IDATACLO24) 
ROE = Resion definition block with the following 
rrorerties? 
Size 32 (10) (32.-word blocks) 


Name LEXZ71A 
Fartition LEXZ7I1A 
Frotection WOtnonerSYtRWEDsOWSRWED GRE RWED 


Attach with read and write access 
Initialize the RIE 

TATA ROB /O» S329 3RLEXs3R71A93RLEX»3R71Ay "Sy 

L"170000/7 
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Dynamic Regions 


SOLUTION 

C WOR = Window definition block with the followings rrorerties? 
C AFR 7 
C Size 32 (410) (32.-word blocks) 
C Offset im region O (32.-word blocks) ; 
C Length of window 32 €10) (32.-word blocks) 
C Mar on create with read and write access 
C Initialize the WOR 

DATA WDB 4" 3400909329090 9 32% "203 %0/ 
c 
C Attach resion 


CALL ATRG (CRIMB: TOS) 
C Check for error on attach 
IF ¢(f0S .LT. 0) GOTO 100 
C Move resion id to WIR 
WOR C4)=ROBRC1 > 
C Create and mar window 
CALL CRAW CWB, TDS) 
C Check for error 
IF (IS .LT. 02 GOTO 200 
C Yecrement values 
no SO K=1%s1024 
ITATACK) =IDTATACKI-1 
30 CONTINUE 
C Yetach from region and delete it 
CALL OTRG (ROR, TOS) 
C Check for error 
IF (10S .LT. 0) GOTO 300 
C And Jjume to exit 
WRITE (5%60) 


60 FORMAT (¢(’ LEX81B HAS MONIFIED THE VALUES IN 
1 THE COMMON LEX71A‘) 
GOTO Soo 
Cc 
c Error messases 
100 WRITE (S»v101)> Ins 
101 FORMAT ¢¢’ ERROR ATTACHING TO REGIONy [ISW =’ ¥I4) 
GOTO 300 
200 WRITE (S»201) IDS 
201 FORMAT (¢’ ERROR IN CREATING WINTIOWs DSW =’ 914) 
GOTO 300 
300 WRITE (S301) TOS 
3O1 FORMAT (’ ERROR DETACHING FROM REGION: [ISW =’ »I4) 
C 
SOO CALL EXIT 
ENT 
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SON AOC DS WE 


LO 


Dynamic Regions 


SOLUTION 


*TITLE LEX81C 
eIQENT /01/ 


*ENABL LC ¢ Enable lower case 


~ 
? 


File LEX81C.MAC 


and exits 


Assemble and task-hbuild instructions? 


"Ortion? WNOWS=1 
=Ortion? <RET 


“> “> *O> > Se SP > “EP “SP Wr? “CS D> SP “> “A> “4> E> 


LEX71C modified to use memory management directives 


Frodram to attach to an “isting redionys create 2 
Virtual address window (marred on creation)» read 
ASCII data from the resion, detach from 


the resion 


MACRO/LIST LB? CLs 1LIPROGMACS/LIBRARY » devi CufdILEX8iC 
sLINK/MAP/OF TION LEX81CyL Bt l 1» 1 IPROGSUBS/LIBRARY 


*MCALL EXITSS»ROBBRS»WIBEKS*2ATRGOSC ¢ Sustem 


*MCALL CRAWSTTRGSS»s DIRS» QTOWSS 


y mecroas 


*MCALL DITRERR: IQOERR § Surrlied macros 
ROE? ROBBKS 32.xLEX71LAsLEX71AyRS-. RED 
Tefine resion with? 
Size = 32. (32. word blocks) 
Name = LEX7IA 
Fartition = LEXZ71A 


Attach with read access 


CRAWS WOE sIFR for create address window 


32. (32. word blocks) 


IN 
4 WOBBKS 7932.9090932.9°WS. MAP IWS. REDS 
Ttefine window with? 
AFR = 7 
Size m= 


Offset in resion 


“E> “> “> “Er “> “Mr SD = = Sp > “Mp “Er “E> “E> 
tam 
te +e 


0 (32. 
Length in restionm = 32, (€32. word blocks) 


Mar on create with read access 


word blocks) 


IOSE?3 + BLAKW 2 + I/O status block 
ARG? + BLKW 1 ’ Ardument block for 
§ error code 

RUFF 3 + BLAKE 100. § Outeut buffer 

FMT 3 *ASCIZ /ZB0/ 5 Format strings 
N=128. § Loor count 
+EVEN 

START? ATRGSC ROE s Attach to resion 
BCS_ ERR1 + Check for error 
MOV ROB+R.GID0sWOR+W.NRIG ¢ Move region If 

§ into WIR 

IKS #WIN y+ Create window 
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Dynamic Regions 


SOLUTION 
RCS ERR2 ¢ Check for error 
MOV #1460000+R2 s Set base addr in resion 
MOV #NyRS § Loor count 
LOOF 3 MOV #BUFF yRO + Set ur for $ELMSG6 
MOV #FMToR1L 
CALL. $E0MSG y Edit data 


QIOWSS #10.WVRy t57¢17 #1 OSB» » RUFF 9 RI» €40> 


+ Write date 

BCS ERRSK + Check for dir error 
TSTE IOSE § Check for I/0 error 
BLT ERR3I * Branch on error 

SOR RS» LOOF ’ Print the line 

TONE 3 NTRG$S #ROKB + Detach from resion 

BCS ERR4 s Check for error 
EXITS 


Error handling code 


ERR $ QIRERR <ERROR ATTACHING TO REGION> 

ERR2 3 DNIRERR =<ERROR CREATING WINDOW ANDI MAPFING> 
ERRSOS DITRERR <ERROR WRITING DATA> 

ERR3I? ITOERR #TOSBs<ERROR WRITING DATA> 

ERR4 QIRERR =<ERROR DETACHING FROM REGION: 


c 
us 


CFO C22 0 Ceo 


oE-NIt START 


PROGRAM LEXS1C 
File LEX81C0.FTN 
LEX71C modified to use memory management directives 


Frogram to attach resion LEX71A in eartition LEX7Z1A 
create a window and mar it to the region uronm creatiory 
read data out of the resions and detach from it 


Yask-build with these ortions? 
VSECT=ATA? 1600007 20000 
WNOWS = 1 


INTEGER RINBC8)»WOBCS8) 
This common block will slisgm with the address window 
COMMON /TDATA/IDATAC1IO24) 
ROB = Resion definition block with the following 
rrorerties? 


Size 32 €10) (32.-word blocks) 

Name LEX71A 

Fartition LEX71A 

Frotection WO?nonersSY? RWED,OWF RWEDyGRIRWEN 


Attach with read access 

Initislize the RIK 
TATA ROB /O0¥3293RLEXr3R71Ar3RLEX*s3R71Axr “OO0001 » 
1"170000/7 
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WIR = 


AIO na I 


Dynamic Regions 


SOLUTION 


Window definition block with the following rFrorerties? 
AFR a 3 

Size 32 (10) (32.-word blocks) 

Offset in redion O (32.-word blocks) 

Length of window 32 (10) (32.-word blocks) 

Mar om create with read access 


Initialize the WIE 


DATA WB 7° 3400909 3290909 32y "201 90/ 


C Attach resion 


C Check 


C Move 


CALL ATRG CROBy ITS) 
for error om attach 
IF (INS LT. 02 GOTO 100 


restion id to WOE 


WORC4)=RORC1) 


C Create and mar window 


C Check 


C Print 


11 
vO 


C Detach 


C Check. 


CALL CRAW (WB, IDS) 
for error 

IF (10S «LT. 0) GOTO 200 
contents of region 
00 SO J=19102498 
WRITE (Svi1) CIDATACK) sK=JyJ+7) 
FORMAT ¢€% “’9T2%7I8) 
CONTINUE 

from resion and delete it 
CALL TRG CRIB, INS) 

for error 

IF (10S .LT. 0) GOTO 300 


C And ume to exit 


GOTO 300 


Error messages 

WRITE ¢(Ssi01) 0S 

FORMAT (% ERROR ATTACHING TO REGIONes [SW =’sT4) 
GOTO 300 

WRITE (S201) Ins 

FORMAT (”’ ERROR IN CREATING WINDOW, DSW =’,T4) 
GOTO SOO 

WRITE (S301) 10S 

FORMAT (’ ERROR DETACHING FROM REGIONs DSW =’ »T4) 


CALL. EXIT 
END 
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Dynamic Regions 


SOLUTION 


»-TITLE LEX82A 
~INENT /01/7 
*ENABL LC ¢ Enable lower case 


Frogram to 
creation)» 
creation) s 
the region 


Task-build 


“> “S> “Gh “GrP “Er “rp “EP “EP > “SDP “Sr ED 


File LEX82A.MAC 


create an named region Cattached on 

create @ virtual address window (marred on 
Flace ASCII data in to regions detach from 
and exity leaving the region in existence, 


instructions: 


Include WNOWS=1 ortionm 


sMCALL EXIT&#S»ROUBBKS$ »WOBBKS$ » CRRGS$»CRAWS © 
*MCALL DTRGS*/DIR$»QTOWSS »QTOWSC 


REG? CRRGS ROE s0FR for create region 

; Tiefine restionm with? 

; Size = 2 (32. word blocks) 
; Name = MYREG 

; Fartition = GEN 

; Frotection = WO?NonersSYtRWETL 

; OWS RWEDyGRIRWEL 

; Ilo mot mark for delete on last detach 
; Attach with write and delete access 
RIB? ROBBKS 2»yMYREG»yGENe<RS.NOLIRS DELIRS.WRT'IRS.ATT 
y 

WIN? CRAWS WOR + DFR for create address window 
3 lefine window with? 

3 AFR = 7 

3 Size = 2 (32. word blocks) 
3 Offset im region = 0 (32. word blocks) 
3 Lensth in region = 2 (32. word blocks) 
5 Mar on create with write access 

WOE? WOREKS Z7r29OrO0x292WS. MAP IWS. WRT? 

x 

DET? DTRGS$ ROE > DFR for detaching resion 
IOSE?: »BLAKW < ¢ I/O status block * 
BUFF 3 +RLKE 80, y Ineut/Outeut buffer 

MES? *ASCII /ENTER ASCII CHARACTER: 7 

LEN in o~ MES 


UNMES 3 ~ASCII “152/LEX82A HAS CREATED ANT INITIALIZED 
*ASCII / THE REGION 

LOUNMES =.-TINMES 

* Error format strings 


FCRRER? »-ASCIZ /ERROR CREATING REGION. DSW = 4.7 
FCRWERS .,ASCIZ /ERROR CREATING WINDOW, USW = “D./ 


FOUETERS +sASCIZ /ERROR DETACHING FROM REGION. DSW = “40.7 
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“9170000 


FQTIDE? 
FQTIITE: 


FQT2UE 
FRIZTES 


START 3 


LOOF ¢ 


s Error 
ERR 1 ¢ 
ERR 2 3 
ERRSIV 


ERRST 


ERR423 


ERR4L! 


/ASCIT 
-ASCIZ 
-ASCII 
sASCIZ 
-ASCIZ 
-ASCIZ 


eEVEN 


NIRS 
RCS 
MOV 


NIRS 
BCS 
MOV 
QIOWSS 


BCS 
TSTE 
BLT 
MOV 
MOV 
MOVE 
SOR 


QLTOWSC 


RCS 
TSTE 
BLT 
NIRS 
RCS 
EXIT#S 
code 
MOV 


BR 
MOV 
BR 
MOV 
BR 
MOV 
MOV 
MOV 
BR 
MOV 
BR 
MOV 
MOV 


Dynamic Regions 


SOLUTION 


/IRECTIVE ERROR ON REAL AFTER FROMFT/ 


/ QIO. NSW 
11/0 ERROR 
/ COME = % 


/UIRECTIVE ERROR 


= ZT. 7 
ON READ 


Ci./ 


ON WRITE Qi0. 


AFTER FROMFT QIO.! 


NSW = “~L./ 


'T/0 ERROR ON WRITE Q10. CODE = “n,! 


#REG s Create resion 


ERR1 $ 


Check 


for error 


ROBtR.GI0ysWOR+tW.NRIDG + Move region If 


§ into WOR 


#WIN § Create window 
§ Check for error 


ERR2 9 
#14600009RS 


y 
ERRSE , 
TOSE 3 
ERRSI 3 
#128.°RO + 
#BRUFF ¥R4 
(R4) 9 CRS) + 
ROvLOOF + 

, 


ERR40 
TOSK 
ERR4I 
#0ET 
ERRS 


> “> “> “rp SP “E> 


#FCRRERyR1 


SHOERR 
#FCRWERyR1 
SHOERR 
#FQTIUE ys Ri 
SHOERR 
TOSEsRO 
RO» $0SW 
#FQTITE Ri 
SHOERR 

#F QT 20E R41 
SHOERR . 
TOSBsRO 
RO» $liSw 


a 


s Set base address in resion 
€#IO.RE Re €5 e419 2 €TOSKe eo SH SRUFE xy dL» rp EMES eS ELEN F/B 


Fromet and read data 


Check for directive error 


Check for I/0 error 
Branch om I/0 error 


Region 


a 


a 


y 


size in putes 
R4 => cheracter 


5 Move character to resion 


Tecrement counter and loor 
until done 

LO.WVUBySelyeTOSBRy » <0NMES »LIINMES » 40> 
Write region created message 

Rranch on dir error 

Check for I/0 error 

Rranch om I/0 error 

Tetach from resion 

Check for error 
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Sr ‘a> Sh SP “Er A> “SP “AP KP “Sh Er D> “MP “Sr er 


Create resion error 
message 
Kranch to common code 
Create window message 
Branch to common code 
QIO directive message 
ERranch to common code 
Extend sidm om status 
and move to are block 
QIO I/0 error 
Branch to common code 
QIO write dir error 
Rranch to common code 
xtend sign on status 
and move to arg block 


Dynamic Regions 


SOLUTION 


MOV #FQI2TE RL ’ 
BR SHOERR 9 
ERRS 3 MOV ¥FNETERY RL 3 
SHOERR? MOV FRUFF RO 3 
MOV #EElSWeR2 ’ 
CALL. $ELMSG , 
QIOWSS #IOWVR ry tS etl veo y 
y 
EXITS 3 
eENTI START 


PIII GIA AOI or aoiaanar ni anraaanaiankanana 


IaH 


FROGRAM LEX82A 


File LEX82A.FTN 


LEX82A creates a named region 
creates @ virtual address window (marred on 
an ASCII character inreut at .Ti? 
detaches from 
existence. 


rFlaces 
im the resiony 
leaving the resion in 


Task-build instructions? 


SLINK/MAP/OFPTIONS/CODESFPF LEX82AyxL Bi UL, LIFOROTS— 


~>/LIBRARY 


(attached on 


the resion 


QIO write err message 
BKramch to common code 
letach restion message 


Set ur for $E0DMSG 


Edit message 


“BUFF yo Ri» €40> 


Tisrelay messaede 
Exit 


creation? » 
creation)» 
at 
and exitsy 


Oetion? VSECT=DATAS 14600003 20000 


Ortion? WNOWS=1 
Ortion? <RET 


ROKR = Resion Lefinition Block for resionm with the 
following fFrorerties? 

Size = 2 (32. word blocks) 

Name = MYREG 

Fartition = GEN 

Frotection = WOtNoneySYSRWED 


lo mot mark for 


OWS RWEDY GR? RWED 


delete on 


last detach 


Attach with write and delete access 


WOR = Window Tefinition Block 
following rrorerties? 
AFR = 7 
Size =z 2 (32, 
Offset in restion = 0 (32, 
Length in region = 2 (32, 
Mar on create with 
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for window with 


the 


word blocks) 


word blocks) 
word blocks) 


write access 


all locations 


Dynamic Regions 


SOLUTION 


INTEGER ROBC8) »WORCS8) . 
C Array for dunamic restions variable for ASCII character 


BYTE ARRAY (128) »CHAR 
COMMON /IIATA/ ARRAY 


CO Initislize the RIK 
NATA RIB/Os293RMYR,SREG » 3RGEN? 3R "0001527 "1700007 
C Initialize the WIIK 
DATA WIB/"340090%2 90909 2% "20290/ 
C Call routine to create and attach resion 
CALL CRRGCRIDBs TS) 
C Check for error 
IF CIUS.LT.OIGOTO 800 
C Create address window and mar to resion 
WOB(4)=RO0BC1) 
CALL CRAWCWDOB: IDS) 
C Check for error 
IFCINS.LT.O GOTO 810 
WRITE (5%50) 
C Get ASCII character 


20 FORMAT (’°$ENTER ASCII CHARACTER: 7) 
READ (S»60) CHAR 
60 FORMAT (AL) 


C Flace data in region 
nO 80 J=1*128 
ARRAY (J) =CHAR 
8O CONTINUE 
C Tletach from resion 
CALL DTRGCROBs IDS) 
C Check for error 
IFCINS.LT.O GOTO 820 
GC Write messase 
TYPE X»’“LEX82A HAS CREATED AND INITIALIZED THE 


LREGION’ 
C Branch to common exit 
GOTO 1000 
C Write create error message 
800 WRITECS*s 805) 10S 
805 FORMAT(’ ERROR IN CREATING REGIONe: [ISW = ’»I4) 
C Go to common exit 
GO TO 1000 
C Write attach error message 
810 WRITE (S*s815) 10S 
81% FORMAT(C’ ERROR IN CREATING WINDOW AND MAPPING, 
NSW = “»T4) 
GOTO 1000 
C Write detach error messase 
820 WRITE (S825) 70S 
825 FORMAT(’ ERROR IN DETACHING FROM REGION: DSW = °¢ 
1°14) 


CG Common exit 
1000 CALL EXIT 
END 
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Dynamic Regions 


SOLUTION 


»TITLE LEX&2R 
*IQENT /01/ | 
*ENABL. LC i Enable lower case 


File LEX82B.MAC 


Frogram to attach to an existing redionsy create a 
Virtual address window (marred on creationds modify 
the first buete of the resions read ASCIT data from the 
regions detach from the region and mark it for deletes 
and finally exit. The region will be deleted on last 
detach. 


Assemble and task-build instructions? 


“MACRO/LIST LEi Cis LIFROGMACS/LIBRARY y devi lufdd- 
~OLEXB2E 
SLINK/MAF /OF TION LEX82ByL BIC Ls LIFROGSUBS/LIBRARY 
“Ortion? WNUWS= 1 

“Oretion? <RET> 


H 


*MCALL EXIT#S es ROUBBRSeWIBBRSrsATRGSC ¥ Sustem 
»MCALL CRAWS se DTRGO$S es OIR$ ys QLOWES y Maecras 
*¢MCALL DLRERR»s TOERR > Surrlied macros 
ROBBKS OvMYREGsGENs<RS-.WRTIRS. REDIERS. MOL ERS . TELS 
Vefine region with: 

Size = 0 €32. word blocks) 

. a returned after attach 

Name oo MYREG 

Partitian = GEN 

Mark for delete on last detach 

Attach with ready write and delete eccess 


CRAWS WB sUFE for create address window 
WORBKS 7y2O0090209022WS. MAP IWS. REDIWS WRT? 
Tefine window with? 
AFR 7 
Size = 200 (32. word blocks) 
Offset im redion = O (32. word blocks) 
Length in resion = 0 (32. word blocks) 
returned when marred 
Mar on create with read and write eceess 


mR 
mz 
oe 2% 


ii 


2 


y 
IOSK? +BRLKW 2 y I/O status block 


Region S126 im butes 

Attach to resion 

BCS ERR Check for error 

MOV ROUGHER GiUeWOBt+W.NREID § Move resion If 
> into WIE 

LIRG #WIN ¢ Create window 


SIZ =128, 


“Sr “Sr ‘GP 
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Dynamic Regions 


SOLUTION 


Check for error 

Set base addr in resion 
Flace Zin ist bute 
Size of resion in butes 
Chars rer line 


BCS ERR2 

MOV #1600009RS 
MOVE #°Zy CRS) 
MOV #RSTZ»R4 
MOV #64. 9RS 


“> “> “> “CP “Sr 


LOOF QTOWSS #IO.WVRy te ely ep RTOSBs x2 RS R32 €40> 


NONE? UTRG$S #ROB 


a 


? 


¢ Write date 

Check for dir error 
Check for I/0 error 
Rranch on error 

Comrute chars left 
Kranch if done 

Foint to mext cher 
Check for < 64. chars 
left to erint 

- Or Fy Frint mext line 
“fy Print only that many 
chars 

Frint the line 

Tetach from resion 
Check for error 


RCS ERRSI 
TST IOSE 

RLT: ERR3TI 
SUR R3sR4 
BLE NONE 

Al R3skS 
CMF RS vk4 


BLE LOOF 
MOV R49R3 


BR LOOF 


E> W> WD “ED “CDP “SD EP “EP “BP C> SP > ‘arm “CD 


RCS ERA 
EXIT#S 
Error handling code 


ERR L$ QIRERR “ERROR ATTACHING TO REGION: 
ERR 3 QTRERR =<ERROR CREATING WINDOW ANT MAPPING? 


ERRSO? DIRERR 


SERROR WRITING DATA> 


ERR3I: IOERR #IOSBy<ERROR WRITING DATA 
ERR 4 3 QQIRERR =<ERROR DETACHING FROM REGION? 


»ENTD START 


PROGRAM LEX82E 
File LEX82B.FTN 


FORTAN fF rogram to attach resion MYREG in rartition GEN 
(which was created by LEX82A)» creste @ window and mar 
it to the region uron creations rlace @ Z in the first 
byter then read data out of the resions and detach 
from ity deleting it in the rrocess. 


VSECT#=TATAs 160000320000 
WNTIWS = 1 
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C 
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C 


Dynamic Regions 


SOLUTION 


INTEGER ROBC8) »WORCS) 
BYTE IQATACL28) 


This common block will align with the address window 


COMMON /DATA/TIDATA 
ROB = Region definition tlack with the followings 
FPoOrerbies? 


Size 0 (32.-word blocks) 
filled in when attached 
Name MYREG 
Partition GEN 
Protection WOtmonersSYIRWENs OWS RWE Ds GRIRWED 


Mark for delete on last detach 
Attach with deletes write and read access 
Initielize the RIDE 


DATA RIR /OvsOr3RMYRe SREG » SRGENy SR r"QO0O021 3% 


1*170000/ 


WOR = Window definition block with the followins 
Frorerties! | 


APR ? 
Size 200(8) (32.-word blocks) 


Offset in resion O (32.-word blocks) 
Lensth of window O (32,-word blocks) 
filled in when marred 
Maer on create with read access , 
Initialize the WIB 
DATA WEB /"3400%0% "2001020908 "203207. 


Attach resion 
CALL ATRG CROBs TDS) 


> Cheek for error om attach 


IF (IS .LT. 0) GOTO 100 
Move resion id to WIE 

WOR C4) =ROBRCL) 
Create and mar window 

CALL CRAW (CWDB» IDS) 
Check for error 

IF (10S .LT. 0) GOTO 200 
Flace ASCII Z in first hyte 

IMNATACL)#°Z? 
Frint contents of resion 

WRITE (S»vitd IDATA 

FORMAT ¢€% ‘»464A1) 
Netach from region and delete it 

CALL DTRG (RONBRy TOS) 
Check for error 

IF (105 .LT. 09 GOTO 300 
And Jume to exit 

GOTO Soo 
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C 


‘Dynamic Regions 


SOLUTION 


C Error messages 


100 
101 


200 
2O1 


WRITE (39101) IDS 

FORMAT ¢€% ERROR ATTACHING TO REGION, [SW =’ T4) 
GOTO SOO 

WRITE (S201) IS 

FORMAT (’ ERROR IN CREATING WINDOWs DSW =%»T4) 
GOTO SOO 

WRITE (S301) INS 

FORMAT (’ ERROR DETACHING FROM REGIONy NSW =’sT4) 


CALL EXIT 
ENT 
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Dynamic Regions 


SOLUTION 


~TITLE SNDIIREF 
+LQENT /017 
*ENABL LC s Enable lower case 


File LEX83A.MAC ¥9EX 


Modifi 
additi 


LEX83A 
fills 

region 
the re 
ther 
Lame 
attach 


Agssembh 


Instal 
LEX83RB 
then r 


Yefine 


RFERO 
RSTAT 


ROR? 


ed to send to a 2nd receiver RCVRF2 in 3 
on to RCOVREF ; 


creates a 64-word (2 block) unnamed resion 
it with ASCII characters. It then sends the 
to RCVREFs and then waits for RCVREF to re 
sion. (This is sigmalled by event flast #1.) 
rints a message and exits. Since the area i 
dy it is automatically deleted when the las 
ad task exits. 


le and task-build instructions? 


=SMACRO/LIST LEI CLs LIFROGMACS/LIBRARY »devitu 
~SLEXS3A . 

SLINK/MAP/OPTION LEX83AsL Bi Cts LIFROGSUBS/LT 
Qetion? WNOWS=1 


lL and run instructions! RCVREF must be inst 
must be ianstelled as RCVRF?. Rum LEX83A fi 
unm ROYVREF and RCVRE2? Ceither one first) 


eMCALL QLOWSC ys QTOWSS*RASTSC § System macro 
*MCALL WTSESCesEXIT#SsROBBKS »sWORBKS 

*+MCALL CRRGOSS s+ CRAWSS » SREF C0 

*MCALL OTRERR § Surrlied macro 
eNLIST BEX. > SUPFRESS TNATA 


resgiom with? 


Size 2 32-WORD BLOCKS 
Name none 


GEN 
WOsSnonersGRIRWED 
OWI RWEDy SY inane 


Fartition 
Frotection 


HoH OH 


Attach on create 

Read and write access desired on attach 
= 170017 

= RS.ATTIRG.REDIRS. WRT 


RIBEKS 29 GEN RSTAT® RERO 
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and 


cCelve 
It 


t, 


FfdI-s ¥EX 


BRARY 


glled. 
rsty 


S 


“> “6p “E> “OP “GP “> “D> SD 


WSTAT 
WIR? 

; 
MESA 3) 


LMES1 
MES23 


LMEGS2 = 


START? 


Tlefine window with? 
AFR 


Dynamic Regions 


SOLUTION 


it 


2 32-word blocks 
32-word blocks 

O S2-word blocks (defaults 
to smaller of resion 
size and window lanstn> 

Mar on create with read and write access 

= WS.MAP IWS. WRT 


Size 
Offset in resion 
Length to mar 


Hou 


WORBKS 7¥29020% YWSTAT 


~ASCII 7 LEX83A HAS CREATED THE REGION ANID HAS/ 
eASCIT 7 SENT IT TO RCVREF AND RCVRF2./7 5+5EX 
=,-MES1 , 

-ASCII 7 RCUREF ANT RCOVRF2 HAVE RECEIVED IT./3 EX 
eASCII / LEX83A ITS NOW EXITING. 7 geEX 

« ~ MES2 

+LIST REX § Show binary extensions 
EVEN 


Enable local ‘symbol 
blocks 
Create and attach to 


+ENABL. LSE 3 
, ; 
, 
§ Tresion 
> 
N 


CRRG$S #RIOR 


RCS 1% 
MOV ROB+R,.GIU» WoB+W. 


BRranch om dir error 
Ritt § Cory resion In 
; into Whe 


CRAWSS #WK * Create and mar window 
RCS 2 > Rranch om dir error 
MOV WOER+W.NBAS y RO § base V.A. of resion 


> Fill resion with all M’s 


2O8 3 


§ Send the resion to RCVREF. EF 
’ ROVREF 


MOV #464. °R3 * count of words to move 
MOV ¥°MMy CRO) + § Move in am ASCIT M 
SOR R3» 20% > Loor through resion 

1 will be set when 


recieves it 
SREFS$C RCVREF »pWOBs 1 Send bye reference to 
RCVREF 
Branch om dir error 
Send by reference #sEX 
to RCVRF2 99EX 
Branch om dir errors EX 
SivyLMES1*40> ¢ Display 
y message 


RCS © 3% 
SREF$C RCVRF2 WIR, 3 


BCS 7% 
QIOWSC ITO.WVBRySy 2a 99 9 iM 


Iq a> Sb > Gh Wd SP 


BCS 4$ * Branch on dir error 

WTSE¢C 1 ¢ Wait for RCVREF to get 
s the resion 

RCS ek 3 > Branch om dir error 

WTSE$C 3 ¥ Wait for RCVRF2 to $¢sEXx 
+ get the resion ¥9EX 
y Branch on dir errors EX 


RCS 8S 
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99 
100 
101 
102 
103 
104 
105 
106 
LO? 
108 
1909 
110 
lil 
1i2 


MOON DB CHD Whe 


10 


* 


Dynamic Regions 


SOLUTION 


QTOWSC TO.WVRsSy2e 99 98MES2reLMES2 40> ¢ Disrelay 

5 Messadce 
RCS és § Branch on dir error 
EXIT#S y Exit 


y Error code 

183 QIRERR “<ERROR ON CREATE OR ATTACH REGION: 

2hi QIRERR <ERROR ON CREATE OR MAF WINTOQW: 

3Hh3 QIRERR <ERROR ON SEND) BY REFERENCE> 

AG 3 QIRERR <ERROR ON IST WRITE 

Ea QIRERR <ERRORK ON WAIT FOR? 

&$3 QIRERR <ERROR ON 2NTt WRITE> 

7 $3 VIRERR <ERROR ON 2N0) SEND BY REFERENCE? 55 EX 
She DIRERR <ERROR ON 2Nt WAIT FOR: ¥FEX 


OA AAI OAIAGAKAKAIOIAAGAAIAIAIAAriaiaanrnrriaannnIraana 


-ENT! START 


PROGRAM SNIIREF . 
File LEX83A.FTN 


Modified to send the region by reference to RCVRF2 !!'EX 
in addition to RCVREF HlEX 


This Frogram creates a 64~-word unnamed resion and 
fills it with ASCII cheracters. It then sends it by 
reference to task RCVREFs and waits for RCVREF to 
receive the resgion.(This is sidnalled bs event fleas 
#1.) SNODREF then erints @ messase and exits. Since 
the area is unmamedsy it is sutomatically deleted when 
the last attached task exits, 


Task-build instructions? 


SLINK/MAP/CODES FFFE/OP TIONS LEX83ArL Bit Ci»tIFO-!!EX 
~sROTS/LIBRARY PtEX 
Ortion? WNOWS=1 

Qetion? VSECT=DATA?T1600002 200 

Oetion? “RET 


Install and run instructions? RCVREF must be installed. 
LEX83B must be installed under the name RCVRF2. 1tEX 
Rum LEX83A first, then rum RCOVREF and RCVRF2 Cin !!EX 
either order) 


ROB = Restion definition block with the following 
Frorerties? : 
Size 2 32-word blocks 


Name none 

Fartition GEN 

Frotection WOtnone sSYSRWEDsOWPRWEL » 
GRinone 


Attach on creation 
Read and write access desired on attach 


lil 


C This 


Dynamic Regions 


SOLUTION 


WOR = Window definition block with the followings 
Frorerties? 


APR 7 
Size 2 32-word blocks 


Offset in region O 32-word blocks 
Length of resion 2 32-word blocks 
Mar on create with write access 


INTEGER ROBC8)>) »sWOR(C8) sROVC2) »ROVOC2) LIEX 
common block will align with the address window 
COMMON /TIATA/INATACG4) 


C0 Initialize the ROB 


DATA ROUB/O» *27090% SRGENY 3R y"439"170017/ 


C Initialize the WB 


C Name 


C Code 


CG Frit 


10 


C Send- 


C when 


yO 


flas 


Sernd- 


TATA WHE "3400902 "2902709 "Be "202907 
of receiver task 
DATA REV/SRRCVs SRREF/ 


DATA RCV2/3RRCVy BRRE2/ It1EX. 
CALL CRRGCRIB, IGS) ! Create resion 

IF (10S .LT. O) GOTO 100 ! Check for error 

WHE ( 4) =RORC 1) ! Move region id to WIR 
CALL CRAWCWIIB,y TUS) ! Create window 


IF (10S LT. 0) GOTO 200 ! Check for error 
region with data 

nO 10 I=1+64 

IDATACI) =" MM‘ 


‘hy-reference to receiver tasks set event flag 1 


received 
CALL SREFCRCOVys1»WIBy » TNS) 
IF (inS LT. O29 GOTO 400 ! Check for error 


-hy-reference to 2nd receivers RCVRF2s use event! IEX 


2 Plex 
CALL SREFCROV2s2 WR, » TOS) rlEX 
IF (InS .LT. OF GOTO 450 ! Check for error !!EX 
TYFE X*’ LEX83A HAS CREATED THE REGION ANT HAS 
1 SENT IT TO RCVREF AND RCVURF2.’% |! Dtiselay !!EX 


! messase !!EX 
CALL WAITTFR(1+sT0S) ! Now wait for recertion 
TIF (I0nS .LT. 0) GOTO S00 ! Check for error 
CALL WAITFR( 2% TNS ! Wait for RCVRF2 to !!EX 
| receive 1I1EX 


IF (InS .LT. 0) GOTO S50 ! Check for error Plex 
TYFE X»’ RCVREF ANID RCOVRF2 HAVE RECEIVED IT. 

1 LEX83A IS NOW EXITING.’ ! Write messade PIEX 
GOTO 600 ! And sto exit 
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Dynamic Regions 


SOLUTION 


C Error handlins code 


100 WRITE (S¥110)I0S 
110 FORMAT (€° ERROR CREATING REGION: DSW = ’»T4) 
GOTO 600 
2OO WRITE (Se210)0I08 
210 FORMAT ¢€”’ ERROR CREATING WINTOWs DOSW = ’,14) 
GOTO 600 
400 WRITE (5410705 
410 FORMAT ¢’ ERROR IN SEND-BY-REFERENCE,s DSW = ’»14) 
GOTO 600 
450 WRITE (5»460)708S 
440 FORMAT ¢€¢’ ERROR IN 2ND SEND-BY-REFERENCEs DSW 
1 = ‘’,»T4) rtEX 
GOTO 600 Il'EX 
500 WRITE (S»510)1I0S 
S10 FORMAT ¢*% ERROR ON WAIT,s DSW = ’sI4) 
GOTO 600 flEX 
S50 WRITE (5%5460)0T0S blEX 
3460 FORMAT ¢’ ERROR ON 2NIt WATT» DSW = ’»T4) 1'EX 
C 
600 CALL EXIT 
ENIt 


»TITLE LEX83B 
~INENT /01/ 
*ENABL LC > Enable lower case 


File LEX83B.MAC 


Second reciever for SNIIREF (modifed to LEX83A),. 
Frogram to receive-by-reference (marred on creation) » 
modify the first dats bute in the resiors 

read ASCII data from the resionsy detach from the 
resion and exit. The resion will he deleted on last 
detach. 


The first word im the resion contains the count of the 
number of bytes of dats in the resion. 


Assemble and task build instructions? 


“MACRO/LIST LEI C1,sLIFROGMACS/LIBRARY, devi lCufdd 
~SLEXS3B 

LINK/MAF/OPTIONS LEX83BeL Bi Cis lIFROGSUBS/LIBRARY 
ortion? WNOWS=1 


“Sr Wr “Er Sh KP So HP NEP Sh “BP “rp “erp “He “ah “EP CP GP C> SP 
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“cr “cP. 


Install and ru 


 LEX838 must he 

> and then run RK 

3 
*MCALL 
»>MCALL. 
»MCALL. 

> Tlefine windaw 

3 

3 

r) These ar 

$ 

$ 

3 

3 

§ Notes Must mar 


WHE? WOBERS 
z 

REC 3 

WIEN ¢ 

TOSE: 


RREF $ 
CRAWS 
+ BLRW 
START? NIRS 
BCS 
RIS 


DIRS 


BCS 
MOV 


MOV 
MUL. 
MOV 


“ee 


QTOWSS 
BCS 


TSTE 
BL. T 
EXIT$S 
cade 
QNIRERR 
QIRERR 
QIRERR 
TOERK 
eENYTI 


y Error 
ERR IL? 
ERR 2 3 
ERR? 


ERR ¢ 


REC 


Dynamic Regions 


SOLUTION 


nm instructions’: RCOCVREF must be installed. 
installed as RCOVRF2. Run LEX83A first 
CVREF and ROVRF2 Cin either order). 
EXITéS »sWOREKS es RREF SE uo tem 
QTOWSS » CRAWS oy NIRS $ 
DIRERR sy TOERR Exte rma ld 
Marrs 


Exte rr ld 
Mac KOs 
sure Lied 


“Sr “S> 


with 

AFR a 7 

Size = 2OOCR) 
@ filled in om receive as 

Offset in resdion = O (32. 

Lensth im region = O (32. 

reset 

ACCESS z= QO 
seraractely Cor as rart of receive) 

Pye 


(32. word blocks) 
set hu senders 
word blocks) 

word hlocks) 
after marr drs 


for RREFS 
for CRAWS 
block. 


Set our FR 
Setw ue TR 
I70 status 


= 
pa 
oo ot 

WG> Sr “SD 


Create virtual address 
window 
Branch on error 
§$ ¢ Set WOE to mar on 
y TeECeIVEe 
Receive ny 
arid mare 
Branch om error 
Set base address in 
region 
Size of restiion to R3 
Convert hlocks to butes 
Modify first data hute 


ERR 1 
HWS» MAP yWOBH+W NG 


=] a> > “a> 


reference 


ERR 
#L6EQ000s RS 


WhR+W.NLEN» RS 
OA. RS 
IOs CRS) 


> “> *C> “C> “> “> > SD 


#IOWVR ys #5 etl so #LOSRs oR Sy RS #40> FWrite 


§ data 
Branch on directive 
error 

Check for I/0 error 
Branch on error 


ERRS 


TOSE 
ERR4 


“c> “S> “> “S> 


“ERROR CREATING VIRTUAL. 
ERROR ON RECEIVE ANT 
SERROR ON WRITE Q10O> 
#TOSEs<ERROR ON WRITE QT0> 
START 


ANLIRESS WINDOW 
MAF 
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Dynamic Regions 


SOLUTION 


PROGRAM LEX83B 
File LEX83BeFTN 


LEX83R receives by reference a resdion from the task 


> LEXS3A. It mars to the resdions modifies the first 


butey Frints out the contents» anc exits. The resion 
is deleted on last detach. 


> Task-tbuild instructions? Include these ortions 


WNNWS=1 
VSECT=DATA? 14600003 20000 


> Install and run instructions? LEX83B must be installed. 
C as RCOVRFS. RCVREF must be installed. Run LEX83A first, 
then rum LEX83B& and RCVREF Cin either order), 


. WOR = Window definition block with? 


AFR 7 
Size 200(8) 32-word blocks 


Allow for full AFR 
Offset in resion O 32-word blocks 
Length of resion O 32-word blocks (to be filled 
im om receive) 
Read anc write access» 
INTEGER WhERCS) 
TATA WhE/S "3400709 "270909 "Or *3x0/ 
BYTE TATACL28) 
This common block will align with the address window 
COMMON /DATA/TIATA 


> Create address window--do mot mar et this time 
CALL CRAWCWIIBs TS) 

Check for error om create 
IF (inS .LT. 0)? GOTO 200 


> Now set WOR status for marring--will be done by 


receive-hy-reference 

WOER(7)=WOBRC 74+" 200 
Receive data and mar 

CALL RREF (WOR: » TGS) 
Check for error 

IF (IOS .LT. 0) GOTO 100 


> Modify first value 


DATACL #49" 
> Calculate number of bytes of data ~ length in blocks 
returned at WIRC4) . 
NCHAR = 64XWDRC6) 
WRITE(Sy»10) (QATACI) »I=1»NCHAR) 
FORMAT (€% ‘’»64A1) 


C Go exit 


GOTO 300 
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Dynamic Regions 


SOLUTION 


Error messades 
WRITE (S»110)700S 
FORMAT (° ERROR 
GOTO 300 

WRITE (S»210)10S 


FORMAT ¢€’ ERROR CREATING WINDOW, 


CALL EXIT 
END 


ON RECEIVE-BY~-REFERENCEs SW =’»91T4) 
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SW ="9T4) 


File 1/O 


TEST/EXERCISE 


Next to each activity, write O for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. 


a. Records are read from the file. 

b. Access rights to the file are checked. 

c. Existing file is located on disk. 

d. Internal buffers are placed in a pool for re-use. 
e. Records are written to a file. 


Describe three functions performed by the Files-ll ancillary 
control processor (FI1ACP) when ae task creates a new file 
containing seven blocks. 
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File 1/O 
TEST /EXERCISE 


For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 


a. A teacher has a file with one record for each student. 
The students are identified by student number (1 - 100). 
Each record contains the student's test scores (space is 
reserved for 1@ scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any student's test 
scores and test average using the student number. 
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b. 


File 1/0 


TEST /EXERCISE 


A company has a file of customer’ records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person. 


A company uses COBOL for its applications. It has a. 
payroll file which is processed in order every two weeks. 
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File 1/O 
SOLUTION 


Next to each activity, write O for open, I for I/O operation, 
or C for close, to identify which step of file I/O is 
involved. 

a. Records are read from the file. 


b. Access rights to the file are checked. 


_ 

BES 

_O c. Existing file is located on disk. 

_C_ d. Internal buffers are placed in a pool for re-use. 
_f  e. Records are written to a file. 


Describe three functions performed by the Files-1l ancillary 
control processor (FI11ACP) when ae task creates a new file 
containing seven blocks. 


Any three of the following: 


Allocate a file header 
Initialize the file header 

Set up file retrieval pointers 
Create a directory entry 
Allocate blocks to the file 


Connect a task's LUN to the file 
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File 1/O 


SOLUTION 


For each of the following, tell whether FCS only, RMS only, or 
both can be used for file I/O. If both can be used, identify 
which you would prefer and why. 


a. A teacher has a file with one record for each’ student. 
The students are identified by student number (1 - 180). 
Each record contains the student's test scores (space is 
reserved for 1@ scores) and his average. The instructor 
adds new test scores and updates the averages as he gives 
tests. In addition, he wants to access any student's test 
scores and test average using the student number. 


Either FCS or RMS may be preferred. 
FCS 
e Easier to program (in MACRO-11) 


e Less overhead (although very close if using a relative 
file rather than an indexed file) 


e File must have fixed length records with record 
numbers corresponding to student numbers 


RMS 
e If a relative file is used, can automatically skip 
over deleted records (if student leaves or drops the 
course) 
@e In FORTRAN, no harder to program 
@e Not much overhead for a relative file 
e File must be a relative file with fixed length 


records, with cell numbers corresponding to student 
numbers 
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b. 


File 1/O 


SOLUTION 


A company has a file of customer’ records. Each record 
contains the company name, the address, the contact 
person, and the equipment bought. At different times, the 
records are accessed using company name, city, or contact 
person. 


Best answer is RMS only since an indexed file with 
multiple keys is needed for fastest access. FCS can be 
used, but access by key value is impossible. You would 
have to step through the file, checking all records, to 
locate the one you want. 


A company uses COBOL for its applications. It has a 
payroll file which is processed in order every two weeks. 


RMS only; COBOL is supported under RMS, but not’ under 
FCS. 
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File Control Services 
TEST/EXERCISE 


Modify CRESEQ so that each record in the file contains’ the 
text input from the terminal preceded by "AAAA", 


Write a task that appends records to a file you have created 
(using one of the FCS example programs or the editor). 


In MACRO-1l, modify the task CREFXA so that input from the 
terminal uses FCS routines instead of QIO directives. 


Write a task that requests input from a terminal of the form: 
n, text 


Use the input to update the nth record of FIXED.ASC, which has 


fixed length records. Use random access and do not truncate 
the file. 


In MACRO-11, modify the task BLOCK1 or BLOCK2 so that it 
writes or displays two virtual blocks at'a time. 


(Optional) In MACRO-11, modify the task CSI so that’ the 
subroutines DISPLY and DELETE actually display and delete the 
file. Caution: DELET$ delete the highest version of a file 
if no version number is specified. (See Chapter 6 of the 
IAS/RSX I/O Operations Reference Manual for information about 


the routines GCML and CSI.) 
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File Control Services 


SOLUTION 


*TITLE CRESEQ 
*IQENT /017 
*ENABL LC 


File LEX10O1.MAC 
Modified to Freced each record with AAAA 
CRESEQ creates a file VART.ASC. It reads 
records from Tits and elaces them in the file. 
A “Z terminates ineut and closes the file. 
Assemble and task-hbuild instructions? 
MACRO/LIST LE3CLs LIPROGMACS/LIBRARY y devi Cufdd 


~SCRESEQ 
LINK/MAF CRESEQ»sL E301» LIFROGSUBS/LIBRARY 


*MCALL EXSTS$CyQIOWSC sQITOWS sDIRGS § Sustem macros 
*MCALL FSRSZ$yeFOURBDFS»FOAT&AYFURCHAsFIOPSA ¢ 
*MCALL NMELAGYOPENSWY PUTS CLOSES ¢ 

*MCALL DTRERR:y TIOERRyFCSERR §& Surrlied macros 


FSRSZ$ 1 + 1 file for record I70 


Tefine file descrirtor block for VART.ASC 


FOR? FOBOF $ Allocate the FIER 
FOAT$A K.-VARySFOL.CR Variable length records, 
Listing ~ implied 
carriage returns line 
feed 


FNAME NMBLK& VART* ASC 


a 
, 


RUFF $ *ASCIT /AAAA 


IN 
I0 


Seauential access and 
record I/O by 
defaults BUFF is 
user record buffer 

Use LUN 1l» file spec 
at FNAME 

"VARI.ASC" 


FOIRCSA » BUFF 


FIOFSA Ly» »FNAME 


“a> “Rh “SP SP “SP “EP Cr ‘E> “Sh “EP “HD “ED 


Local Data 
USER RECORD RUFFER 
BUF? .BLKE 80, 
ST? +BLKW 2 


‘S> “@> c> 


I/O STATUS BLOCK 


*LIST REX 
+EVEN 


*ENABL LSE 
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File Control Services 


SOLUTION 


; Oren file for writes call ERR if oren fails 


OFENGW #FURy yee» sERRIL 
§ Get record from terminals rut to file. 
10$3 QIOWSC TO.RVBs Selves TOSTys<INBUF 80.2 35 9 9EX 
RCS ERR20 + Kranch om directive 
~ 5 error 
TSTE IOST ¢ Check for I/0 error 
BLT ERR2I > Branch om I/0 error 
MOV IOST+2eR1 ¢ Number of bytes inreut 
ALT #4R1 ¢ Add 4 for 4 A’s 9 ¥ EX 
PUTS #F0Ry RI y Fut record to file 
RCS ERRS 
BR 10% > GET NEXT RECORD 
EXIT? CLOSES #FIUR»ERR4 + Close file 
EXST$C EX#SUC § EXIT STATUS IS 1] 
»+SETTL ERROR HANTIILER 
sy Error code ~ Close file if necessarys disrelay error 
y message and exit - 
ERR13 FCSERR #F0Rs<ERROR OPENING FILE? 
ERR203 OTRERR <DTRECTIVE ERROR ON READ 
ERR2I3 CMPR #TEEQF » TOST > Is it “Z? 
REQ EXIT > If eaualy close file 
y and exit 
IOERR #I0ST*s<ERROR ON REALS ¢ Diselay error 
y Messate and exit 
ERR3 3 CLOSES #FIBsERR4 § Close file 
FCSERR #F0IBe<ERROR WRITING RECORD 
ERR43 FCSERR #FRIRy<ERROR CLOSING FILE> 
END START 


128 


COGN & OD Gils 


10 


NOOOAAIAIAAAIaAn 


OO AIANI 


File Control Services 


SOLUTION 


FROGRAM CRESEQ '!CREATE FILE SEQUENTIALLY 
FILE LEX101.FTN 
Modified to rrecede each record with AAAA 1IEX 


This task creates a file of VARI.ASC of 
variable-length records using seauential record access. 
The records are inreut from the terminal and coried to 


the file, The rrocess stores when the orerator tyres 
CTRL/Z at the terminal. 


BYTE BUFF (84) »INBUF (80) PIEX 
EQUIVALENCE (CBUFF CS)» INBUF C1) ) 1ItEX 
INTEGER LEN 

DATA BUFF C1)» BUFF C2)» RUFF COS) » RUFF C4) | 

1 S°A% 9A’ AS CASS 


OPEN FILE 


Nefault access is seauential 


Tefsault is formatted I/0 for seauential files 


OFEN CUNT T=LyNAME=’VART.ASC’ » TYPFE=’NEW? s 
1 CARRIAGECONTROL=‘LIST?) 
TYPE Ky “TYPE IN TEXT» TERMINATE EACH RECORD 
1 WITH A CARRIAGE RETURN’ 
TYPE Xy “TERMINATE INFUT WITH A CTRL/Z’ 
Loor 
READ (S»s1l1isEND=100) LEN» INBUF ! Read record!!EX 
FORMAT (Q*80A1) 
LEN = LEN+4 ! Add 4 for A’s 
Plex 
WRITE (i912) (CBRUFFCI)sT=1»LEN) ! Write record 
FORMAT (80A1) ! to file 
GO TO 10 
Close file and exit 
¢) CLOSE CUNTT=1) 
CALL EXIT 
ENT 
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File Control Services 


SOLUTION 


LEX102 
JOL/ 
LC 


using the editor, 


a 
bd 


Enable lower ca 


LEX102 arrends records to the end of the file 
getting the inreut from TI?. TEST.FIL 
contains variable length records and can be 


A “Z terminates imeut 


EXST#C rQlOWSC > QIOWS es DIRS 


FSRSZ$»F UBOFS »NMBLKS 
FOURCSA»sFUAT$AyF OOP SA 


$e 


OP ENGA sFUTS$ » CLOSES 
BEX § Surrress ASCII 
2 § QTIO status hlock 
IO.WVB»Setyer9yQBRUFF Or 40> 
80. § User record buffer 
80. § Outeut buffer for 
y error messases 
1 > Arstument block for 
> tEDMNSG 
/TIIRECTIVE ERROR ON QIO. ERROR CODE = “0.7 
?T/0 ERROR ON QIQ. ERROR CONE = X0.? 
/FCS TTIRECTIVE ERROR. ERROR CODE = “70.7 
?FCS I/0 ERROR CODE. ERROR CONE = “b,? 
BEX 3; Show offsets 
1 ¢ 1 file for record 1/70 
$ File descrietor block 
» RUFF +80. 5 User buffer and size 
dy»FILE > use LUN 1 
TEST »FIL s TEST.FIL 
LSB 


#FTIR yoyo eERRI 


#80. °R1 
#BUFF »R2 
#° 9 CR2)+ 


+ TITLE 
» IDENT 
+ENABL. 
3+ 
¥ File LEX102.MAC 
3 
> 
s TEST.FILy» 
9 
’ created 
5 amd closes the file. 
3 vase 
+MCALL 
»>MCALL 
»>MCALL 
»*MCALL 
»+NLIST 
IOST? +BRLKW 
FRINT? Q2r0OW% 
BUFF? +BLKE 
OBUFF ? +BLKE 
ARG? +BLKW 
EFIQIO: .ASCIZ 
EFIQIO: .ASCIZ 
EFCHIR? .ASCIZ 
EFCSIO: .ASCIZ 
EVEN 
+LIST 
FSRSZ4% 
FIR? FOBIF S 
FIRCEA 
FOOFSA 
FILE? NMEBELKS 
+ENABL 
START? OFENSA 
108% MOV 
MOV 
OF MOVE 
SOB 


R1l»20$ 


13 


> > SP “G> ‘ar a> 


OPEN for arrends if 


oren fails» CA 
Size of URE 
Addr of URE 
Rlank fill reco 
60 nao sarbese 


Li. ERR 


re 
fill 


DITROK ? 


OKTO? 


EXIT: 


a 


y Error 
ERR13 
ERR2? 
ERR3? 


To: 


FINSET: 


SHOERR + 


RQTOWSC 


BCC 
MOV 
MOV 
BR 


TSTE 
BGT 
CMFR 
BEQ 
MOVE 


MOV 
MOV 
MOV 
BR 


MOV 
FUT 
BR 


CLOSES 
BCS 
EXST$C 


File Control Services 


SOLUTION 


IO.RVEvySe1»*sIOST 


DIROK 
#EFIQIOrR1 
#$0SWsR2 
SHOERR 


IOST 
OKIO 
#IE.EQF»TOST 
EXIT 


IOST sr RO 


RO» ARG 
¥#ARGsR2 
¥EFDQTIOsR1 
SHOERR 


IOST+29R1 
#F0RsysRLirsERR2 
104 


#F0R 
ERRS 
EX#SUC 


Frocessing 


TSTE 


REQ 
MOV 


BR 
MOV 


MOVE 


MOV 
MOV 


MOV 
CALL 
MOV 
DIRS 
CLOSES 
EXST$C 
»END 


F.-ERR4+1 (RO) 


IO 
#EFCOIR:R1 


FINSET 
EF CSTOsR1 


F-ERRCRO) sRO 
RO» ARG 
¥ARG?R2 


#OBRUFF »RO 
$E0IMSG 


RivsPRINT+Q. TOPL+ 


FP RINT 
#F 0B 
EX$ERK 
START 
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“a> “E> “Cm E> “ED “E> “AD WP Sr E> “EP “> “Gr EP “EP “E> “E> “ED GD “OD EP E 


a> “Sr cd 


Gr <a> er PJ “er a> er “Gr ar “Gr “ar “Gr “ED “Er er “a> “ar “E> 


y<BUFF *80.25 Read 2 
line from TI? 
Branch om Directive ok 
Set ur for $EIMSG 
Branch to show error 
and exit 
Check. for 
Branch if I/0 ok 
Check for EOF 
If EQs close and exit 
I/O status is sisn 
extended and erlaced 
im argument block 
for #$E0MSG call 
Set ur for $ENMSG call 


I/O error 


Kranch to show error 
and exit 

Length of record to R1 
Write next record 

Get next record 


Close file 


Branch on 
Exit with 


FCS error 
status of 1 


Lirective error or I/0 
error 
Rranch om I/O error 
Set ur for $EDMSG, 
directive error 
Rranch to finish setur 
Set ur for $E0UMSGer I/0 
error 
FCS error code 
is sign extended and 
relaced im ars block. 
$EDMSG arsdument block 
OQuteut buffer 
Format error messase 
§ Size of messase 
Frint error message 
Close file 
Exit with status of 2 
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File Control Services 


SOLUTION 


FROGRAM LEX102 
FILE LEX102.FTN 


This task arrends records to the file TEST.FIL. 

The records a@re inreut from the terminal and coried to 
the file. The rrocess stors when the orerator tyres 
CTRL/Z at the terminal. 

TEST.FIL contains variable length records and can 

be created using the editor. 


BYTE BUFF (80) 
INTEGER LEN 


OFEN FILE 


Tefault access is seauential 
Tefault is formatted I/0 for seauential files 


OF EN CUNT T=1»NAME=’ TEST.FIL’ » TYPE=’OL D7 » 
1 CARRIAGECONTROL=“LIST’ sACCESS=’AFPFEND? > 


PYPE Ky’ TYFE IN TEXT» TERMINATE EACH RECORD 
1 WITH A CARRIAGE RETURN’ 
TYPE Ky “TERMINATE INPUT WITH A CTRL 7/2’ 


READ (SrslivsEND=100) LENs RUFF ! Read record 
FORMAT (Q»80Al1) 


WRITE (1912) (BUFF C(I) »I=1*sLEN) ! Write record 
FORMAT (80A1) ! to file 
GO TO 10 
Close file and exit 
0 CLOSE CUNT T=1) 
CALL EXIT 
ENI! 
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from 


“a> “Gb “8s ‘ar “E> sar “a> ‘Em “em sem 


RSTZ 

IOST? 
PRINT? 
BUFF ¢ 
ORUFF 3 


ARG $ 


EFDQIO: 
EFIQIO? 
EFCOIR? 
EFCSIO? 


“a> 


FOES 


FILE: 


TI 


TITLE 
¢ ILDENT 
+ENABL 


Modified to 
imeut from 


*MCALL 


*MCALL 
*MCALL. 


*MCALL 
+MCALL. 


+NLIST 
= 30, 
+ BLKW 
QLIOWS 
+ RLKE 
+ BLAKE 


*BLRW 

*ASCIZ 
*+ASCIZ 
*ASCIZ 
*ASCIZ 


»EVEN 
»LIST 


FSRSZ$ 


FOBDF S$ 


FIRCSA 
FOAT$A 


FLOF SA 
NMBLKS 


File Control Services 


SOLUTION 


CREF XA 
/O1/ 
EC > Enable lower case 


File LEX103.MAC 


use FCS instead of QI0’s to set #sEX 
TI3 y9EX 


CREFXA orenms FIXED.ASC for writer ineuts records 
and euts them seauentisally to the file. 


A “xz terminates ineut and closes the file. 


EXST8C sQTOWSC » QTOWS eS NIRS 


FSRSZ$ »F URBDF S$ » NMBLKS 


FIIRCSAsFIUAT$Ars FOF SA 
OPENSW»GET&sFUT$» CLOSES 
OFENSR 
REX -§ Surrress ASCII 
y Record size (bytes) 
2 § QIO status block 
TO.WVBy Solve» QKRUFF rO0%40> 
RSIZ + User record buffer 
80. + Outeut buffer for 
y error messades 
1 > Ardument block for 
> $EDMSG 


/TQIRECTIVE ERROR ON QIG. ERROR CODE = 4£N.7 
?7I/0 ERROR ON QIO. ERROR CODE = “0.7 

/FCS DIRECTIVE ERROR. ERROR CODE = ZD./ 
?FCS I70 ERROR CONE. ERROR CONE = “40.7 


BEX > Show offsets 


2 5 2 files for record I/0 
99 EX 


> File descrirtor block. 
5 


y RUFF s RSIZ User huffer and size 
RFIXsFO.CResRSIZ ¢ Fixed lensth recordsys 


> imelied <CRO<LFS 
lysFILE sy use LUN 1 
FIXED»ASC ¢ FIXED.ASC 
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49 


we 
56 
97 
38 
39 


§ FOR for TI’ 


FORT: 


NSFETI: 


DEV? 


START: 


+ Stay here for 


TOERR 


OKIO$ 


EXIT: 


File Control Services 


“GP G> “E> “Gr vcr E> E> Eh “E> “er “Er “ED “Er “Er “Er 


> Sr > “GD 


“> “> “> “E> “G> “> “> “E> Wo OP 


S> “E> Erp “CP “Gd “E> 


URE addr and sizey 
defaults to 
sequential eccess 


Fixed length records 


implied <CRE<LF = 
Use LUN 2» dataset 


descrirtor at OSFTI 


Tlevice 


UIC - mot meeded for 


TI? 
File Name ~- nat 
needed for TI? 
ASCII device 


OPEN’ if oren fails,» 


CALL ERR 
OFEN "file" on TI? 
for read 


Size of URE 

Addr of URRB 

Blank fill record 
$0 no sarbase fill 

Get record from TI? 

Branch om GETS oF 

I/O error or 
directive error? 

Branch om directive 
error 


y Check for EOF 


If EQ» close and exi 


It is an I/0 errors 
$0 disrelay error 


message and exit 
Write next record 


Get next record 


Close file 

Rranch om FCS error 
Close "file" at TI? 
Rranch on FCS error 


SOLUTION 

FORBDIFS 
FORCHA » RUFF» 30, 
FOATSHA R.VARsFO.CR 
FOFSA 2*T0SFTI 
»WORTD LOEV»s TEV 
»>WORT 00 
»~WORT O¥0 
*ASCII STI 
LOEV=,-DEV 
+EVEN 
*ENABL LSE 
OPENSW  #F0IBs 999% ¥ERR1 
OPENSR #FDBI 9997 2sERRI 
MOV #RSIZ»R1i 
MOY #ERUFF » RO 
MOVE #° » (R2)4+ 
SOR Ris20% 
GETS #F ORI 
BCC OKIO 
TSTER F -ERR+i (RO) 
BNE NIRERR 

I/O error. Check for “Z- 
CMFR #IE.EQF»F. ERR CRO) 
REQ EXIT 
BR Io 
FUTS #FTRs y vERR2 
BR 104% 
CLOSES #FIB 
BCS ERR 
CLOSES #FREI 
BCS ERR4 
EXST#C Ex#SuUuc 
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“> “> > “G> “E> 


> “> > CR “> scm > c> “E> cr Pr ~2> 


m 


sey “Ga wr Cm “Er er 
nar “E> “E> er “Er E> ar 
Ty cee TFET OM 

«TK KOK OK OK 


“a> S> “Sp “arp WP 


PrEPTT ITE see FRET PPT 
mM > KPO OOK KOK 


“cp “rp “> Sh “Gr CP We > “E> 


“Scr “arp “GP 


“ap “S> “E> rp E> “GP PrP “E> “E> “GP “E> “E> 
mK mK OO TOOK KOKO KOK O*K 


Mmmm. HMM AMM mm 


Exit with status of 1 


98 
99 
100 
101 


102 


103 
104 
105 
106 


107 
108 


109 
110 
1ii 
1i2 
113 
114 
115 
116 
117 
118 
119 
120 
121 


¢ Error 
ERR1? 
ERR23 
ERRS3 
ERR 4 3 


DNIRERR $ 


I0O3 


FINSET! 


SHOERR: 


File Control Services 


SOLUTION 


Processing 


TST 


BER 
MOV 


BR 
MOV 


MOVE 
MOV 
MOV 


MOV 
CALL 
MOV 
DIRS 
CLOSE $ 
CLOSES 
EXST#C 
*END 


F,ERR+1 (RO) 


10 


#EF CHIR R1 


FINSET 


#EFCSTIOvR1 


F,ERRCRO) »RO 


ROvARG 
#ARGrR2 


#OBRUFF ¥ RO 


$E0MSG 


RivsPRINT+Q. TOPL+ 


FP RINT 
$F 08 
$F OKT 
EX#ERR 
START 
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Me 1p cd ae hy ser “er cer scr “ar ser ser er en “c> “cm “@> “em cer 


Set 


Ytirective error aor 1/0 
error . 

Kranch om I/0 error 

ur for $EIIMSG» 3¢3EX 
directive error 

Branch to finish setur 


Set ur for $E0MSG:e [70 
error 
FCS error code 

is sign extended and 


rFlaced in ars block 
tENMSG arsument block. 
Outreut buffer 

Format error message 
y+ Size of messade 
Print error messase 
Close file 

Close "file" at TI: 


37EX 
Exit with status of 2 


MWONAUMSBUNH 


10 


2> Gr “Er “E> Wd Sd 


RSIZ 
LOST: 
FRINT? 
BUFF $ 
EMESINY 
EMEST? 
OUTS 
BUFF 13 


ERRMSG 3 
MSGERF 3 
CNVER 3 


INF'T? 


File Control Services 


SOLUTION 


*+TITLE LEX104 
+IDENT /017 
*ENABL LC + Enable lower case 


File LEX104.MAC 


This Frogram orens the file FIXEN.ASC and urdates 
records in the file using random access. The orisinal 
file was created using CREFXA 


*MCALL FIRDF Ss FOATSAsFOURCSAsFUOPSA » OF ENSU 
*MCALL EXITSS»QIOWSC » QTOWS »QTOWSS »PUTSR 
*MCALL CLOSES» FCSMCS 


FCSMCS ¥ Get mast of the FCS 
§ macros (CFCSMCH has 
3 »MCALLS for mans FOS 
5 macros 
*NLIST BEX 
=30. § Record size (Cin bytes) 
+BLAW 2 § I/0 status block. 
QIOWS IO.WVBySyly oxy SOUT 0+ 40% 
«BLAKE RSIZ i user record buffer 


*ASCIZ /FCS NIRECTIVE ERROR. COME = Z0.7 

~ASCIZ “FCS I/0 ERROR. CONE = <i.” 

+ BLAKE 100. § OQuteut message buffer 
*ASCII /THAT‘’S ALL FOLKS!/ § Message on success 
y comeletion 
LENi=.-BUFFL 

»*BLKB 100, > Error message buffer 
*ASCIZ /ODIRECTIVE ERROR, CODE = ZD/ 

*ASCIT /CONVERSION ERROR ON RECORD NUMBER/ 
LONVER=.-CNVER 

»*ASCII /ZENTER RECORD NUMBER ANI TEXT? / 

LINE T=.~-INFT 


y FOR for file 


FOR: 


+ EVEN 

FSRSZ$ 1 > 1 file oren for record 
§ I70 

FOUBIIF $ sF OR 


sFU.INS is needed to keer the EOF mark where it 16 


DFNES 


FORCSA FD.INSIF DO. RANs BUFF yRSIZ ¢ Random modey URE 
¥ addrs and size 


FOOF¢A 1yssTlFNE 3 Use LUN Ly default 
3 filename btliock 
NMBLK& FIXEDs ASC § tefault mame FIXED.ASC 
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STARTS 


a 


§ Clear 
1043 


2O85 


GOO: 


» Close 
EXIT? 


ERR? 
ERR2¢ 
ERRS3 


IOERR $ 


returned in 


File Control Services 


SOLUTION 


Allow local symbols 
to cross Fsect 


boundaries 


Oren file for urdate 
(includes extend) 

time 

Record size 

R2 => buffer 

Move im @ blank, 

Continue until done 


yg BUFF e RSIZs es INE Ts LINE Ty % $2 

Fromet and set iriput, 

Check for “Z 

If “2: exit 

Set ur to convert 
record # to binary 


cheracter after #€ is 


wy") 

Is it a@ comma 
Branch on sood 
conversions 


IO.WUBe Seles» y SONVER » LONVER 2 40> 


iselay error messase 

Rranch om directive 
error 

Get next inrut 

Write record to outreut 
file 

Get next inrut 


and exit 


Close file 


IO-.WVERySelveeriBUFFL»yLENL 40> sWrite 


*ENABL LSE 3 
5 
; 
OFENSGU #F0 Bye ery 9 E RRL ; 
5 
buffer to all blanks each 
MOV $ERSTZeR1 3 
MOV #BUFF 9» R2 3 
MOVE #’ y CR204+ 3 
SOR Ri»20% 5 
QTOWS$C ITO.RFPRsSel»sTOSTs 
; 
CMF ER ¥IE.EQF »IOST 5 
BEQ EXIT ; 
MOV #BRUFF » RO ; 
CALL $CUTse ; 
Check for sood conversions 
R2 (it should be a 
CMF RB #’x9R2 ; 
BEQ GOOK 3 
5 
QIOWSsC 
; 
RCS ERK4 3 
3 
BR 104 5 
FLT $F #F0UByyesRisvsERRS ¢ 
5 
BR 104 ; 
filers disrlay messasey» 
CLOSES #FDRsERRS 5 
QTOWSC 
y 
BCS ERR4 ; 
EXITS ‘ 
CLOSES #FUIB»sERRS 5 
MOVE FLERRCRO) » RO 5 
MOV ROsITOST 5 
5 
MOV #IOST»R2 3 
TSTE F.-ERR+1 (RO) 3 
BEQ IOERR 5 
MOV #EMESDI»R1 3 
5 
BR COMME ¥ 
MOV #EMEST »R1 3 
3 
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messsde to orerator 
Branch om error 


Close file 

Move FCS error code. 
to arsument block 
for $E0NMSG 

Set ur for $E0MSG 

I/O or directive error 

BKranch on I/O error 

Set ur for dir error 
messasde 

Branch to common code 

Set ur for I/0 error 
message 


102 
103 
104 
105 
106 
107 
108 
109 
110 
lid 
112 
113 
114 
115 
116 


= 
os 
NW 


COON DCAD Gh 


File Control Services 


SOLUTION 


COMME? MOV #0OUT »RO Set ur for #$ENMSG 
CALL $E0MSG Edit error message 
MOV RisFRINT+Q.IOFL+2 § Lensth of error 

+ Messedte 

tiselay error messade 

EXIT 


“a> “a> 


DIRS #F RINT 
EXITS 


“Sr “E> 


> Here for directive error on QIO 


ERR43 MOV #ERRMSGyRO ¢ Set ur for $E0MSG 

MOV #MSGERF 2 R1 3 
MOV €$0ISWsR2 ; 
CALL $ENMSG s Edit message 
QIOWSS #IO.WVBs €5 9819 eo SHERRMSG oe R1 y $402 

¢ Diselay message 
EXIT#S ¢ Exit 
*ENT START 


FROGRAM LEX104 


Cc 
C File LEX104.FTN 
Cc 
C This task urdates records in the file FIXED.ASC using 
C direct access formatted writes. The original file was 
C created using CREFXA. 
Cc 
C irect access formatted writes gre available in 
C FORTRAN IV-PLUS and FORTRAN-77 only 
Cc 
BYTE REC (30) 
Cc 
Cc Oren file 


OF EN (CUNIT=2»NAME= ‘FIXED. ASC’ sACCESS= DIRECT’ » 
1 TYPE=’OLD’ »sFORM=’FORMATTET 7 > 
C Flace blanks in buffer 


10 N0 15 J=#1230 
REC(J)=" ¢ 
15 CONTINUE 


C Read record from terminal 
WRITE (S20) 


2 FORMAT (’$ENTER RECORID NUMBER ANT TEXTS %) 
READ (SySOrsENT=900) REC 
30 FORMAT (64A1) 


C Convert record rumber to integer format 
DECONE (2*60»REC) NREC 

40 FORMAT (I2) 

C Write record to disk. 
WRITE (2’°NRECr80) REC 


80 FORMAT ¢30A1) 
100 GOTO 10 
C “Z inreuty close file and exit 
900 CLOSE (UNTIT=2)_ 
CALL EXIT 
ENT 
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SOON DR CHD Whe 


File Control Services 


SOLUTION 


sTITLE BLOCK? 
*IQENT /0O1/7 
*ENABL LC ¢ Enable lower case 


+ 


File LEX105.MAC 39EX 
Modified to work on 2 virtual blocks at a time ¢FsEX 


KK-ELOCK2? fromets at TI? for @ virtual block number 
and then reads and disrlays that block of "BLOCK.ASC* 


“a> Ch “E> “E> “SD “EP SP? SD 


*MCALL QIOWSs DIRS» QIOWSS xEXST$S 
*MCALL FOBDIFS»sFORCSAy FORK SAsFDOPSA »NMEBLKS 
*MCALL FSRSZ$*OPENSR es READS yo WAITS» CLOSES 


*SERTTL MESSAGES 
*NLIST BEX 


CR = 15 

LF FF 12 , 

MES1 *ASCIT /FIRST VIRTUAL BLOCK? / 99 EX 
LENT =, ~ MEST 

MES23 «ASCII =CRe<LFo/HERE ARE THE BLOCKS 2 /2CR>=<LF> 
’ ¥9EX 
LENZ = = MES2 


MES3I3 .ASCIZ ‘1/0 ERROR FROM OFEN¢Re CONE = “0. ’ 
MES3N3 .ASCIZ /UIRECTIVE ERROR FROM OPENSRe CODE = “40.7 
MES4T3 .ASCIZ ’I/0 ERROR FROM REALS» CODE = Zh.’ 

MES403 .ASCIZ /DIRECTIVE ERROR FROM REALS» CODE - “lt. / 
MESSI3 .«ASCIZ ’I/0 ERROR FROM WAITS» CONE = “0. ’ 

MESSDOS .ASCIZ /DIRECTIVE ERROR FROM WAITS,» CODE = “0.7 
BUFF 3 +BLKE B80. » STORE RESFONSE HERE 


+LISt REX 
+E VEN 
*SETTL LOCAL STORAGE 


FSRSZ$ 0 + NO FSR BUFFER NEEDED 
y FOR BLOCK I/0 
FLIER $ FOBIIF $ FOR FOR INPUT FILE 


, 
FOURCSA FII.RWM y READ/WRITE MODE 
FORK$A BLOCK21024.»/19TOSBR ¢ EF ly BUFFER AliRy§ sEX 
» SIZE . 
» LUN i» DFNE 
y NAME IS BLOCK.ASC 


FLOP$A tye FILE 
FILE? NMBLK& KBLOCKsASC 


VEN? *WORT Orl 
BLOCK? .BLKW sie. 
IOSE; »BLAW 2 


DEFAULT VEN 
BLOCK BUFFER ye EX 
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QIOWS 


File Control Services 


SOLUTION 


PROMPT 3 IO.RP Re Seite» TOSBy»<BUFF yd» eyMESL»LENI » “$2 
¢ Fromet and set VE 
DONE 3 QIOWs IO.WVRySevivyesyetMES2»LEN2+40> ¢ Done 
5 mMesSsacse 

DUMP $ QIOWsS IO.WVRy Selves e¥tOv64.740> ¢ Tliselay of VB 

*SBTTL MAINLINE CODE 
START? 

OFENSK #FODBvysexecsERRI ¢ Oren file 

NIRS #FP ROME T + Ask for e VEN 

MOV IOSB+t2%RO0 > Fut mull at end 

CLRE BUFF CRO) y of digit string 

MOV #BUFF + RO > RO => VEN 

CALL $COTE § Convert to binary 

MOV Ri»VEN+2 + Store as low VEN 

READS #FU0ByyestVENy yy vERR2 ¢ Read in the block 

WAITS yxy 2ERRS § Wait until done 

DIRS #0ONE § Tell them I/0 is done 
9 Now dumre 16. lines of 64. characters each +9 EX 

MOV #BLOCK»RO § RO => Ist line to dumr 

MOV #1i6.%Ri > #€ of lines to dume FFEX 
1%3 

MOV ROsQUMF+Q.ITOPL §¢ Addr of current line 

DIRS #0UMF > Time it 

Ang #64.5R0 § Foint at next line 

SOB Rivsift > Ttume all 8. lines 


y Now we exit with status = EX#SuUuc 


ERR 


TOERRI 3 


ERR2% 


MOV 
BR 


*SRTTL 


TSTE 
REQ 
MOV 
BR 
MOV 
BR 


TSTE 
BEQ 
MOV 
BR 


Fut status in RS 
And then exit 


#EX$SUC YRS 
EXIT 


> “E> 


ERROR ROUTINES 


F.-ERR+41¢R0) § I/O or directive error? 
IOERR1 > Branch om I/0 error 
#MESS30°R1 5 => [lir error message 3 
FCSERR § Branch to common code 
#MES3I»xR1 ¢ => T/0 error messade 3 
FCSERR § Branch to common code 

F -ERR+1¢(R0) > I/O or directive error? 
IOERR2 * Branch om I/O error 
#MES40°R1 y => [lir error messaese 4 
FCSERR > Branch to common code 
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File Control Services 


SOLUTION 
101 TOERR23 MOV #MES4I R41 § => I/O error message 4 
102 RR FCSERR ¢* Branch to common code 
103 ERRS3 
104 TSTE F.,ERR+1 (RO) ¢ I/O or directive error 
105 REQ IOERRS § Branch om I/0 error 
106 MOV ¥MESS0eR1 some Tir error message § 
107 BR FCSERR y Branch to common code 
108 IQOERR3S? MOV #MESSIeR1I y => I/O error message % 
109 > FALL INTO COMMON CODE 
110 FCSERR? 
1il MOVE F-ERR(CRO) »R2 5 Sidn extend error code 
112 MOV <2 TOSE > and move into TOSE 
113 MOV #EX$ERR YRS § Exit status in RS 
114 FORMAT 3 
115 MOV #IOSE»R2 § Set ur for $E0MSG 
116 MOV #BUFF »RO > 
117 CALL $EDMSG j 
118 QIOWSS #IO.WVBs €5e #1 y eye RUFF eo R1y #402 ¢ Disrelay 
119 5 MmMessase 
120 EXIT? 
121 CLOSES #FIE + Close the file 
122 EXST$S RS § Exit with status 
12: »ENTD START 
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“Ss? ‘S+ “E> “ce “GY 


8 


WME re 


“Ss “Gr “> “E> Se "SR Sah SOP MY 


a 


¥ 

IPERS 
TYRE 2 
PYRE? 
TYPES $ 


ERR LT 3 


ERR $ 


BUFF 
TRUFF ¢ 
FMT $ 
FMTERIG 


FMTER IE 3 


NATAs 

DEL TXT? 
OLTXT 
NOTXT 
CLOUXT 3 


e TITLE 
2 TENT 
eENARL. 


Modified to 


evi tx 


ewiteh 


*MCALL 
*MCALL. 
*MCALLL. 
eMCALL. 
eMCALL 


eNLIST 
LOCAL 
QTOWSs 
QlrOWSs 
QLOWS 
QLOWS 
+ASCIT 
BELL. 
®ASCIT 
SELL 
ASCIT 
SIZ3=. 
e BLINE 
eRLAE 
ASCOT Z 
eASCIT 
*ASCTZ 
ASCTZ 
e EVEN 
» BLARW 
®ASCTIT 
eASCIT 
*ASCTT 
*ASCIT 
e EVEN 


File Control Services 


SOLUTION 


CST 
/O1L 
1.0 $ 


File LEX1O6.MAC 


sctuaelly delete or 


CST allustrates the use of the 
imterereter. 
terminal ain 


This task sccerts 


the form’ 
yu ifilename.filetsys 


can bet 
QE - Uele 
OLIN - Ui 


GOMES» GUMS s CST S$ 
CSTS$SV¥yCSl$sWe Cot 
FSRSZé » FORTE $y POR 
ATOWSS »QTOWS e GIRS 


Enable lower case 


diselay the file 


commend sbrins 


¥ PEEX 


& command line from the 


eiversion/switen 


te file 
gselau N cories of 


rCSTb Ly CST &2 

$NTI 

CHAy FLOP EAsFINITS 
vEXITSS 


file 


NELET $s OP ENSR y OP ENSWY GETS PUTS y CLOSES 


BEX 

CATA 
TO.WVBsSetly yy e SER 
TO WVB es Sy ley ye SER 
TO.WVRe Sy deve eer 


/GET COMMAND LINE 
ERR 

CST ERROR. TLLEG 
“ERR 

/CST ERROR. FILE 
=~ERRS 

100, y 

L326 $ 

“YOU HAVE REQUEST 

/FCS OIRECTIVE ER 

f COME = “207 

PFCS T/0 ERROR ON 

2 
/TELETEZ 20% 
/TUISPLAY/ 
/NOTHING/ 
/CLOSE/ 20220" $ 


Sb > 
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Riv SiZ1» 40> 
R2Q9ST2Z2y9 40> 
RS» SiZ39 40> 
ERROR Z 

Al. COMMANT/ 


SFEC ERROR 


oPEX 


Outeut text buffer 


Transfer buffer 
EX A “ZAZA JOEZ 
ROR ON 427A.7 


“7A« CODE = “Ale? 


Arsument hlack 
ASCII text 


For close 


File Control Services 


SOLUTION 
CSI¢ * Ttefine CSI offsets 
CBLK 3 »BLKE C.SIZE ¢ allocate CSI storage 
+EVEN 
NEMSK = 1 Tlelete mask. 
QIMSK = 2 [liselsay mask 


SWTBL ¢ Switch descrirtor table 
Yelete switch = DE 
Diselay switeh = [Ts 
also allow LIeNn 


End of switch table 


CSI$¢SW DE» DEMSK 
CSI¢SW DIT »sTIMSKys + » »NUM 


S> Gr > SP EP “EP “Od 


CSI#NI 

CSI$SV OCTAL*COPYs2»sNUMs Value N for /IItN is 
im octal and will 
be stored in COFY 

End of switch value 
table 


CSTINI 


> > Or “a> “E> 


9GET COMMAND! LINE BLOCK DEFINITIONS 
FSRSZ$ 3 s GCML uses record I/03 EX 


Fromet with ‘CSI’ on 
LUN & 

FOB for file to delete 
or dgisrlay, 

URE AT TRUFF: lensth 
132. 

LUN ly datseset 

descrirtor from CST 


GBLK3 GCMLES »CSIv*5 
FE? FOBIF $ 
FIRCSA -+TRUFFsi32. 


FUOFS$A tryCBLK+C. 0505 


“Sr a> “Ep “Br SP Cr “SP “Ed 


> NOTE: Need a 2nd FIRB for disrelay 


FOR for outeut to TI sex 
Var lensth records» #F7EX 


FBO? FIBIIF $ 
FLAT$A R.VARYFIL.CR 


3 

3 
; list format g9EX 
FOURCSA »TBUFF 132. § URB at TBUFFs lensths sEX 
; 132. > ¥EX 
FIOFSA 2s0SFTO 5 LUN 2s dataset ¥9EX 
¢ descriretor at DSFTO ¢sEX 
DSFTO? «WORD LOEVy DEY > Dataset descrirtor F#3EX 
+WORD 00 + for TIt. No UIC or #FEX 
»-WORD 00 5 mame needed. 79EX 
NEV? “ASCII STIt/ ; ¢ EX 
LIEV=,.-DEV ; 79 EX 

+EVEN 


JMPTBL? «WORD NONE sDELETE sDISPLY ¢ Jume table for. 
> Subroutines derending 
on Switches 
Value for N in /EITtN 


a 
? 
a 
, 


COFY!: WORD 4 


143 


File Control Services 


SOLUTION 
101 +ENABLE LSE 
102 
103 START? FINITS * Initialize FCS» this 
104 § is normally done with 
105 y an OFEN statement. 
106 § For delete we do not 
107 > need an oren statement. 
108 NEXT$ GCMLS #GBLK , Fromet and get command 
109 BCC 104 > Branch if command OK 
110 ¢ Check for “Z. If “Zs exit. 
111 CMFE ¥#GE.EOF*»GBLKtG.ERR $ Is it “2? 
112 BNE REALER § Branch om other error 
113 EXITS > Exit 
114 REALER: IRS #TYRPE1 * Tisrlay error text for 
115 + get command line error 
116 EXIT$S y Exit 
117 y Farse ineut for illegal cheracters 
118 10$3 CSI¢1 #CBLK»yGELK+G.CMLII4+2*GBLK+G.CMLID ¢ Format 
119 y is CSI addrs addr of 
120 > commands length of 
121 y command 
122 BCC 20% ¢* Branch on OK command 
123 IRS ¥#TYFE2 > Tisrlay error text for 
124 y illegal command 
125 EXIT$S ‘y§ Exit 
126 
127 ’ Create a dataset descrirtor from the file srecification 
128 
129 2083 CSI$2 #CBLK OUTPUTS #SWTBL § Exrect outeut file 
130 > $PFec 
131 RCC 3OF ’ Branch on file srec OK 
132 DIRS #TYFES + Tiselay text for file 
133 > $Fec error 
134 EXITS ¢* Exit 
135 . 
136 > Call the arrrorriate subroutine 
137 
138 3083 MOV #FUByRO + Address of file 
139 y descrirtor 
140 MOV CBELK+C.MKWIisR1 3 ¢ Mask value = Or ly» or 2 
141 F) 
142 ASL R 1. § Touble for word offset 
143 y into Jjume table 
144 CALL @JMPTBL CRI) § Call the subroutine 
145 RR NEXT + Get next command line 
146 
147 > Subroutine NONE: entered if no switches srecified 
148 
149 NONE? MOV #NOTXT ss DATA > Set ur for outreut of 
150. y Messade 


144 


CALL 
RETURN 


§ Commor 
3 


OUTMS: MOV 


MOV 
MOV 


CALL 
QLOWSS 
RETURN 


, 
, 
’ 
3 
DELETE? MOV 

CALL 


DELETS 
RETURN 


KXKXWILL BE DELETED 


File Control Services 


SOLUTION 


OUTMS 


disrelay message code ~- 
is not 8&8 common 


return Froint 


¥RUFF » RO 

#F MT oRI 

#0ATAsR2 

$EDMNSG 
#IO.WVB ye FS x tle es 


Subroutine DELETE 


#0ELTXT»TATA 
QUTMS 


#FUReERRD 


> [Tlelete error code 


ERRDY MOVE FLERRCRO) s RS > Extend sim om errors eEX 
MOV RS*sDATAt2 > and move to are block sEX 
MOV DEL TXT» DATA + Move rointer to deletes sEX 
5 text ¥9EX 
COMME: TSTE F.ERR+1 (RO) » Check for directive #F#EX 
> error or I/0 error #5EX 
REQ IOERR >’ Branch om I/0 error ##EX 
MOV #FMTERDYR1 + Get format string 9 ¥EX 
BR DISFER § Branch to common 9 ¥EX 
> error disrlay core #¢EX 
IOERR: MOV #FPMTERI+RiI + Get format strings 9x EX 
TISFERS MOV #BUFF sO y Set ur for $E0MSG 3 9EX 
MOV #0ATAsRK2 ; 33 EX 
CALL $E0MSG .y Edit message 9 9 EX 
MOV RivyTYPE44+Q,IOFL+2 3 Size of message 99 EX 
NIRS #TYFE4 §’ Disrlay message ¥ 3 EX 
EXIT$S § Exit ¥5EX 
y Subroutine DISFLY - Just display 3 message 
QISPLY? CALL $SAVAL ¢ Save all resisters 
MOV #0TTXTsDATA § Set ur for outeut of 
> mMessase 
CALL OUTMS § Branch to common 
§ gisrelay code 
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o> “> Br 


8 


> “ “> “> > “> 


KKKXWARNING - THE HIGHEST VERSION NUMBER OF THE FILE 
IF NO VERSION NUMBER 


G> “er “Gr @> “A> “CD 


Call OUTMS,: as a ¥9EX 
subroutine 99 EX 
Return $9 EX 
subroutine since it ¢FEX 
¥9 EX 
Set ur for SE0MSG 
Edit message 
<#BUFF yRiv#402 § DTiselay 
Return 

KX 

IS SPECIFIED xxx 


Set ur for outrut of 
message 

Call diselay 53EX 
subroutine 59 EX 
lielete file gFEX 
Return 


File Control Services 


SOLUTION 


Oren 
Oren T 


Number of cories 


R4 


Is 


file for inrut 
for outreut 


to 


Addr of FOE of inPut 


file 


Save rointers to 
first record for 


resetting. 
are returned in 


R2*R3 
BRranch 


or 


Fou 


error 


Get record from 


Branch 


Or 


Move lLenmsth of 


error 


record to FIBRO 
liselay record 


Get next record 


§ Check for EQF 


Branch 


lecrement cory counter 


Rranch 
Reset 
Close 
Close 


if 


if 


not 


more 


nters 
Ri» 


file 


at TI 


to do 


e 
¢ 


number of cories 


file 
TI? 


start of inmrut 


Ri»sR2»sR3 are still set 
Tliselay mext cory 


and 
Extend 


Move disrlay function 


+POINTS 


sign and move 
error code to ITIATA 
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OPENSR #FIIByry99xeERRE 5 
OFENSW #F0BOvexeye2ERRE ¢ 
MOV COFY »R4 ; 
y 
MOV #F0R»RO ; 
gy 
CALL + MARK ; 
; 
> 
; 
; 
RCS ERRE ; 
GET? GETS $F 008 ; 
RCS CHECK ; 
+ Stay here if OK set ~- outrut record to TI? 
MOY F .NRBOCRO) »sFIIBO+F.NREM 5 
PUTS #F DBO» » sERRE 5 
ER GET 3 
¢ Error code 
CHECK: CMFE #IE.EOFsF.ERRCRO) 
BENE ERRE > 
DEC R4 3 
BNE AGAIN ; 
MOV #1°COFY ; 
CLOSES #FIRBsERRC ] 
CLOSES #FOBROQ»sERRC ; 
RETURN 
y More cories to do - reset Fointers to 
§ file and rereat 
AGAIN: CALL «POINT , 
RCC GET ; 
§ Here for errors om FUT$sy GETHs 
ERRE 3? MOVE F.- ERR CRO) + RS ; 
MOV RSs DATAt2 ; 
MOV #0ITXT» DATA ; 
, 
CLOSES #FOR»ERRC 5 
CLOSES #FDOBOvsERRC , 
RR COMME ; 
y 
+ Here for errors om close 
ERRC? MOVE FL-ERRCRO) » RS ; 
MOV RS» DATA? 7 
MOV #CLTXTs DATA ; 
bd 
IMF COMME $ 
¥ 
+ENT START 
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